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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del C64 pubblicati su 
libri e riviste Jackson. 

In ogni numero un supergame originale ingle- 
se descritto nei minimi particolari ed in più 
una miriade di altri programmi scelti tra uti- 
lity, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un corret- 
to utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta allega- 
to alla confezione, ma anche personalizzarli 
servendovi dei listati e della descrizione pub- 
blicata alVinterno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vostra 
raccolta di programmi. 
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BLAGGER. 

Amici jacksoniani, eccoci di nuovo alla carica 
con un nuovo ed appassionante game di 
recentissima importazione. Blagger, questo il 
nome del “supergioco” del mese, è una 
avventura ad alto livello grafico che non 
mancherà di entusiasmarvi impegnandovi in 
numerose e divertenti partite. 
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Il personaggio di turno, sog- 
getto dell’avventura è Roger 
il ladro che dovrete aiutare 
nel suo ritorno a casa attra- 
verso ben 30 schermi pieni 
di difficoltà di ogni tipo. Il 
sistema per superare cia- 
scuno schermo consiste nel 
raccogliere tutte le chiavi 
d’oro sparse per il percorso 
e raggiungere la speciale 
porta contrassegnata dalla 
scritta “safe”. Vi accorgerete 
presto, giocando, come il 
compito di raggiungere tut- 
te le chiavi non è affatto 
semplice e per riuscirci oc- 
corre scegliere un preciso 
percorso e valutare attenta- 
mente tempi e spostamenti 
degli oggetti in movimento. 
A differenza di molti altri 
games in cui volta a volta vi 
trovate in situazioni di gio- 
co differenti, qui tutto è cro- 
nometricamente preciso e 
altrettanto precisi dovran- 
no essere i vostri sposta- 
menti per riuscire a supera- 
re tutti i livelli del gioco. Il 
numero di 30 schermi diver- 
si garantisce che scoperta la 
giusta via per passare in 
uno degli schermi, ci sia 
sempre da studiare il suc- 
cessivo e quindi mai di an- 
noiarsi. 

n gioco 

Il primo schermo da supera- 
re presenta tutti i tipi di dif- 
ficoltà che troverete in se- 
guito e alle quali dovrete 
abituarvi: come piani mobili 
o cedevoli, oggetti pericolosi 
fermi o in movimento, ecc. I 
piani mobili permettono lo 
spostamento solo in un sen- 
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so, quelli cedevoli (colore 
blu) consentono il passag- 
gio di Roger generalmente 
per una sola volta. Nel deci- 
dere il percorso da prendere 
è necessaria sempre una ac- 
curata analisi di tali fattori, 
altrimenti un urto contro 
un oggetto indesiderato o 
una situazione senza uscita. 


concluderà presto la missio- 
ne. Tenere sempre presente 
che non potete effettuare 
salti oltre una certa altezza 
e che il tempo disponibile 
per passare di schermo in 
schermo, seppure molto, 
non è illimitato. Durante il 
gioco, nella parte inferiore 
del video compaiono infor- 




inazioni riguardanti il nu- 
mero di schermo, le vite ri- 
maste, i punti e una barra 
verde indicante il tempo tra- 
scorso. 

Il primo schermo 

Con un po’ di abilità e pa- 
zienza è abbastanza facile 
trovare la giusta via per 


passare di schermo, cosa 
che avviene, ripetiamo, una 
volta prese tutte le chiavi e 
raggiunta la porta contras- 
segnata dalla scritta “safe”; 
ciononostante, per i meno e- 
sperti, ecco in sintesi un’ot- 
tima strategia per superare 
il primo. Dalla posizione ini- 
ziale portatevi sulla porta 


d’uscita e saltate in direzio- 
ne del piano mobile sopra di 
voi. Con un nuovo balzo evi- 
tate l’ostacolo e contempo- 
raneamente prendete la 
chiave posta in basso e poi, 
con salti successivi (tenen- 
do cioè sempre premuto il 
tasto “fire”) risalite i piani 
raggiungendo il piccolo ri- 
piano a sinistra dopo aver 
preso la terza chiave porta- 
tevi con un balzo all’uscita 
della banca e scendete per 
conquistare le ultime due 
chiavi. Per compiere 
quest’ultima impresa utiliz- 
zate il ripiano più in basso 
facendo molta attenzione ad 
evitare il carrello mobile 
che in caso di manovra erra- 
ta vi schiaccerebbe inesora- 
bilmente. L’ultima difficoltà 
consiste nel riuscire con 
due balzi, ben ponderati ad 
aggirare l’ostacolo accanto 
alla porta d’uscita ma, con 
un po’ di pratica, non costi- 
tuirà più un problema e di 
volta in volta supererete 
con disinvoltura l’intero 
schermo. 

Caricamento e co- 
mandi 

Caricate e fate partire il gio- 
co come di consueto: l’im- 
magine dello schermo finale 
vi avvertirà che tutto è an- 
dato “OK”. Potrete a questo 
punto iniziare premendo la 
barra spaziatrice oppure 
ancora aspettando il demo. I 
comandi sono soltanto tre: 
le due direzioni orizzontali 
del joystick (in porta due) e 
il pulsante fire per il salto. 
Buon divertimento!! 
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17 

21 

5 

12 

32 

3*995 

0 

0 

0 

3 

0 

0 

39515 

32 

32 

32 

32 

32 

32 

3*677 

5 

20 

32 

20 

8 

5 

3*839 

20 

15 

32 

19 

1 1 

25 

35001 

0 

0 

0 

0 

0 

0 

3*521 

1 8 

5. 

22 

5 

1 9 

7 

3*683 

32 

19 

23 

5 

5 

20 

3*8*5 

32 

12 

1 

2 

32 

32 

35007 

0 

0 

2*7 

255 

92 

2*7 

3*527 

5 

32 

15 

6 

32 

2 

3*689 

19 

32 

12 

15 

15 

19 

3*851 

32 

32 

32 

32 

32 

32 

3501 3 

255 

255 

163 

255 

25* 

255 

3*533 

21 

26 

2 

25 

32 

32 

3*695 

5 

32 

32 

32 

32 

32 

3*857 

32 

32 

32 

9 

32 

8 

35019 

255 

255 

255 

255 

255 

255 

3*539 

32 

32 

32 

32 

32 

32 

3*701 

32 

32 

32 

32 

32 

1 8 

3*863 

1 

20 

5 

32 

20 

8 

35025 

255 

255 

255 

255 

255 

255 

3*5*5 

32 

32 

32 

32 

3 

1 8 

3*707 

i 5 

7 

5 

18 

32 

8 

3*869 

15 

19 

5 

32 

19 

23 

35031 

255 

255 

255 

255 

255 

255 

3*551 

25 

16 

20 

32 

15 

6 

3*713 

1 

19 

32 

20 

15 

32 

3*875 

5 

5 

20 

19 

32 

32 

35037 

255 

255 

255 

0 

0 

0 

3*557 

32 

20 

8 

5 

32 

5 

3*719 

« 

15 

« 

7 

5 

32 

3*881 

32 

32 

32 

32 

32 

32 

350*3 

0 

0 

0 

0 

0 

0 

3*563 

22 

9 

12 

32 

u 

5 

3*725 

32 

32 

32 

32 

32 

3 

3*887 

32 

32 

32 

32 

32 

32 

350*9 

0 

0 

0 

0 

0 

0 

3*569 

1 

* 

32 

32 

32 

32 

3*731 

8 

9 

19 

5 

19 

5 

3*893 

32 

6, 

9 

1 « 

« 

32 

35055 

0 

0 

0 

0 

0 

0 

3*575 

32 

32 

32 

32 

19 

15 

3*737 

32 

8 

1 

22 

5 

32 

3*899 

20 

8 

5 

32 

2 

15 

35061 

0 

0 

0 

0 

0 

0 

3*581 

13 

20 

8 

9 

1 * 

7 

3*7*3 

18 

5 

20 

21 

1 8 

1 « 

3*905 

2* 

5 

19 

32 

32 

32 

35067 

0 

0 

0 

0 




Guida 
all’input 
C 64 


Norme per la 

battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift” e “CBM”, sono codifi- 
cati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori- 
cino è codificato con >SH 
S <. Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 
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TABELLA DI CONVERSIONE 


{HOME } HOME 

{ CLR } PULIZIA SCHERMO 

{CUR.SU} CURSORE IN ALTO 

{CUR.GIU} CURSORE IN BASSO 

{CUR.DES} CURSORE A DESTRA 

{ CUR . SIN } CURSORE A SINISTRA 

{SPC } SPAZIO 

{ RVS ON } REVERSE ON 

{ R VS OFF} REVERSE OFF 

{ INST } INSERT 

{FI } .... ‘ .‘TASTO .FI 

{ F2 } TASTO F2 

{ F 3 } TASTO F3 

{ F 4 } TASTO F 4 

{ F5 } TASTO F5 

{ F 6 } TASTO F6* 

{ F7 } . . . TASTO F7 

{ F 8 } TASTO F8 

{BLACK} COL. NERO (CTRL+1) 

{WHITE}.' COL. BIANCO (CTRL + 2) 

{RED} COL. ROSSO (CTRL + 3) 

{ C YAN } COL. CIANO (CTRL + 4) 

{PURPLE} COL. PORPORA (CTRL + 5) 

{GREEN} COL. VERDE (CTRL + 6) 

{BLUE} COL. BLU (CTRL + 7) 

{YELLOW} COL. GIALLO (CTRL+8) 

{ORANGE} COL. ARANCIO (CBM+1) 

{BROWN} COL. MARRONE (CBM + 2) 

{ LT . RED } COL. ROSSO CHIARO (CBM+3) 

{ GR A Y 1 } COL. GRIGIO 1 (CBM + 4) 

{ GRA Y2 } COL. GRIGIO 2 (CBM + 5) 

{LT. GREEN} COL. VERDE CHIARO (CBM + 6) 

{ LT . BLUE } .COL. BLU CHIARO (CBM + 7) 

{ GR A Y 3 } COL. GRIGIO 3 (CBM + 8) 


BARONE ROSSO 



Ecco un gioco di riflessi che 
vi metterà a dura prova. Per 
difendere il fronte dalle orde 
aviatorie nemiche guidate 
dal famoso barone Von Ri- 
chtofen, siete stato chiama- 
to voi, famoso asso del cielo. 
Il vostro nemico si serve di 
tre tipi di aeromobili per at- 
taccarvi dei palloni aerosta- 
tici che volano seguendo 
delle correnti d’aria, poi vi 
sono i caccia d’attacco, che 
sono la forza più numerosa, 
di colore blu verde; questi 
aerei voleranno sempre da 
est a ovest, cioè attraverso 
lo schermo sempre da de- 
stra verso sinistra. Come 
terzo tipo di aerei ci saran- 
no quelli usati a scopo spio- 
nistico, di colore rosso e di 


uguale velocità e comporta- 
mento di quelli d’attacco. 
Per ogni pallone colpito 
guadagnerete 50 punti, 
mentre per gli aerei riceve- 
rete 75 punti. Il programma 
per facilitare il giocatore ha 
la funzione di fuoco automa- 
tico che si attiva tenendo 
premuto il pulsante di fuoco 
per un paio di secondi. Il 
percorso è disseminato di 
case che non possono né es- 
sere colpite né toccate. At- 
tenzione a non distruggere 
gli aerei nemici in una posi- 
zione troppo vicina a voi, 
poiché le relative esplosioni 
sono mortali per voi. L’effi- 
cienza e la velocità del vo- 
stro ereo diminuirà con il 
passare del tempo, finché 


raggiungerà quella del ne- 
mico. Tra l’altro potrete sce- 
gliere tra le diverse melodie 
inserite nel programma e 
potrete interromperle con il 
tasto “fire” del joystick. Il 
programma prevede tra l’al- 
tro degli optional: F7 provo- 
ca infatti l’interruzione del 
gioco e della musica (per ri- 
cominciare basta premerlo 
nuovamente. Anche il tasto 
run/stop ha la stessa funzio- 
ne). Il pulsante F8 ha la fun- 
zione di “out”, fa cioè reset- 
tare il computer, mentre F3 
disattiva il rumore dei vo- 
stri motori, lasciando inal- 
terati gli altri. FI infine in- 
terrompe la partita in corso 
e ne da inizio ad un altra, 
sempre dal quadro iniziale e 
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con il punteggio inziale. Per 
scegliere il livello di gioco 
(da 1 a 30) muovete la leva 
del joystick verticalmente e 
premete “fire” al numero de- 
siderato. 

Chi volesse battersi tutti i 


dati, inizi dall’indirizzo 
2049 per terminare al 5823, 
viceversa, sulla cassetta c’é 
già tutto pronto. 

Tratto dal libro 
“ Giochi fantastici per C64”. 


01 3.008. 100.000. 158. 0,O, 
050, 048, 05 ^ ,051 ,0H1 ,000, 
000,000,165,001 , OH 1 ,254, 

133.001 .169.197.141 .000, 
221 , 1 69,000, 1 HI ,023,208, 
1 HI ,029,208, 1H1 ,027,208, 

032 . 006.01 7 , 1 69 , 003 , 1 HI , 
178, 002,169, 027, 1 H 1 ,017, 
208, 169, 172, 1H1 ,000,208, 
1 69 , 01 1 , 1 HI ,032 , 208 , 1 69 , 
01 H.1H1 ,033.208,1 69.000, 
1 H 1 ,03H,208, 169,01 2, 1 H 1 , 

035.208. 162.127.1 69.000, 

157.000. 1 68.202.016.250, 
1 62,032 ,1 89,033,01 7,1 57 , 
015,168,189,066,017,157, 
079, 168, 202, 016, 2H1 , 160, 
000.185,099,019,153.000, 

176. 200 . 1 92 . 1 HH , 208 , 2H5 , 

1 60.000. 185.179.019.153, 
000,177,200,192,168,208, 
2H 5 , 1 60,000 . 1 85,091 ,020, 

153.000. 178.200.192.208, 
208, 2H5, 1 69,160,1 HI ,032, 
1 6H , 1 69,000, 1 HI ,000, 1 6H , 

168.185. 000 . 1 6, ,02H , 1 05 , 
OHO, 1 53,001 , 1 6H , 1 85 ,032 , 
16H,105.000,153.033,16H, 

200. 1 92 ,025, 208, 23H , 1 69, 
000, 1 HI , 1 75,002 , 1 HI , 1 76 , 
002, 1H1 , 177,002,1 69,255, 
1 HI , 1 68,002, 169,001,1 33, 
033, 120, 169, 127, 1H1 ,01 3, 
220,169,001 , 1 H 1 ,026,208, 

1 69.000. 1 , HI ,018,208, 1 73. 
01 7, 208, OHI , 1 27 , 1 HI ,017, 
208, 173,020,003. 1H1 ,123, 
01 6, 1 73. 021 ,003 . 1 HI , 1 2H . 
01 6,1 69,072, 1 HI ,020,003 , 

1 69.016. 1 HI ,021 ,003.088, 

1 69.000. 1 , HI , 172,002. 1 HI , 
1 73 . 002 , 1 H 1 .17H.002.169, 
00H.1H1 ,183,002,173,168, 

002. 1 HI ,1 67,002,1 69,001 , 
1 HI ,033,208, 1 69, 1 60 , 1 HI , 
1 36.002, 169, 1H7.032.21 0, 

255 . 1 69, OOH , 1 HI , 1 36,002, 

1 69.006. 1 HI ,033 , 208, 1 60, 

023. 1 85 , 105,021 , 1 53. 1 5H , 

1 63 . 1 36,01 6, 2H7 , 1 69.081 , 
1 HI , 1 87 , 1 63. 1 60,002, 1 62, 
000, 185. 175,002,032,202, 
015,157,179,163,165,021, 
157,180, 163.232,232, 1 }6 . 
016,237,169,001 , 1 33,027, 
238,1 67,002, 173,1 67,002, 
201 ,0H3, 1 HH.005, 169,039, 
1 HI , 1 67.002 , 1 60,063, 1 69, 
255,153,06H,16H,136,016, 
250, 172,1 67,002, 185,215, 
021 ,072, 1 HI , 1 80,002, 1 85 , 
172,021 .072.02H, 109, 1 80 , 

002. 1 HI , 1 80,002, 1 85,129, 
021 , 170, 02H, 109. 180,002, 
1 HI , 180,002, 160.000.22H, 
000, 2 HO, 009, 169,001,153, 
06 H. 16H,200,202,208,2H7, 
1 OH , 170.2H0.009, 169,002. 
153,06H,16H,200,202,208. 
2H9, 1 OH , 170, 2H0, 009^169, 
003, 153, 06H, 16H.200.202, 


208, 2H9, 160,063,032, 1 H 8 , 
015, OHI ,031 ,056,233.010, 
0H8.2H6.201 , 002 , 1 HH , 2H2 , 
153,192,16H,032,1H8,015, 
153, 128, 16H, 136, 016, 230, 
169, 130,133.025,032,006, 
017,173.183.002,032,202, 

015. 1 HI , 1 88 , 163, 165,021 , 
1 H 1 , 1 89,1 63, 1 69. 0H9, 1 HI , 
001 ,208, 169, 1 H 1 , 1 H 1 ,02H, 

208. 1 69,003. 1 HI ,039,208. 
169,01 1 , 1 H 1 ,032,208, 169, 
000, 1 HI ,028,208, 169,1 60, 
1 HI , 2H8 , 163 , 1 69,001 , 1 HI , 
021 ,208, 1 69,000, 1 HI , 1 82, 
002 . 1 33,032. 173,031 . 208 , 
165,027,208,010,165,033, 
2H0.003.032.2H1 ,010,076, 

006.01 1 , 173, 178,002, 1 Hi , 
179,002,032.237,013, 169, 
000,133.027,160,018, 169, 
001 .153, 153,217, 152, 02H, 

105. 1 28. 1 53 , 1 5H , 1 61 , 1 62, 
007, 185.0H3.021 ,032.221 , 
010, 202, 016, 2H7, 136, 016, 
230 , 1 62 , 000 , 032 ,1 31.01 6 , 
22 H , 051 , 208 , 111 , 162 , 000 , 
160 , 018 , 1 85 , 062 , 021 , 032 , 
221 ,01 0, 1 36,01 6 . 2H7 , 1 73 . 
000 , 220,201 , 1 1 1 , 2H0 , 09 1 , 
1H2, 169, 002, 162, 100, 032. 
2H5,015,17H,169,002,232, 
22H,008,1HH,222,173.167, 
002, 02H, 105,001 ,032, 1 79, 
01 5, 032, 202, 01 5, 1H1 , 2 H 3 , 
1 61 , 1 65,021 , 1 HI ,2HH , 1 61 , 

173.000. 220.201 .111 . 2H0, 
0H8.201 ,126,208,017,238, 
167 , 002 , 173, 167 . 002 , 201 , 
030 . 1 HH , 026 , 1 69,000 , 1 HI , 
167, 002, 2H0, 01 9, 201 ,1 25, 
208, 22H, 206, 167,002, 173, 
167,002,201 ,255,208,005, 
1 69 , 029 , 1 HI , 1 67,002 ,162, 
060, 032, 2H5, 015, 076 , 1 1 1 , 
010,160,018, 169,032 ,153. 
1 5H , 1 61 , 1 36 ,01 6 , 250 , 1 Hi , 
2H3 , 1 61 , 1 HI , 2 H H , 161,173. 
000,220,201 ,127,208,2H9, 
206,167,002,173,167,002, 
1 H 1 , 168,002,076,075,009, 
010, 010, 010, 1H1 ,235,010, 
152,010,010,010, 1H1 , 238. 

010 . 1 89 . 000 . 178. 157.000, 

180. 096. 169. 000. 1H1 ,005, 
212,1 69.2H0, 1 HI ,006,21 2, 
169,001 , 1 H 1 ,001 ,212, 169, 
033, 1 H 1 , OOH, 212, 096, 173, 
000,220,073, 1 27,1 33.036 , 

169.000. 1 33 . 031 . 165 . 036 . 
OHI ,001 , 2H0 , 01 0 , 1 73 , 001 , 
208,201 ,059, 1HH, 019, 206, 
001 ,208, 165, 036, OHI ,002, 
2H0, 010, 173. 001 ,208,201 , 
21 H, 176,003,238,001 ,208, 
165 , 036 , OHI ,00H,2H0.03H, 
1 69,001 ,1 33.031 .1 69, 1 61 , 
1 H 1 ,2H8, 163, 173. 178,002, 
OHI ,007,201 , 007 , 2H0 , 006 , 

238. 178.002.076. 1 27,01 1 , 
1 69 , 000 , 1 HI , 1 79,002 ,1 98, 


025,032,063,01 H, 1 65,036, 
OHI ,008, 2H0.032, 169,001 , 
1 33.031 , 1 69 , 1 60, 1 Hi , 2H8. 
163.173. 1 78, 002, OHI ,007 . 
2H0. 006, 206, 178.002,076. 
1 27,01 1,1 69,007, 1 HI , 1 79, 
002,230,025,032,063,01 H, 
173, 1 78,002 , 1 HI , 1 79,002, 

165.031 .208.007.169.000, 
1 HI ,000,21 2, 2H0, 005, 1 69, 
06H , 1 HI ,000,21 2,238, 1 82, 
002,1 69,012,056,237, 1 67 . 
002, 0H8, OOH, 201 ,007, 176, 

002. 169.007.205. 182.002, 
2H0, 012, 165, 031 ,208,016, 

162.001 ,032,2H5,015.076, 
1 91 , CI 1 ,032,056,01 H , 1 69, 
000, 1 HI , 1 82,002, 173,031, 
208,208,003,076,129,012, 

032.006.01 7 , 1 69, 1 HI , 1 HI , 

019. 212. 169. 000. 1H1 ,020, 

21 2. 1 HI ,01 H , 21 2, 1 69,070, 
1 Hi ,01 5,21 2, 1 69,008, 1 HI , 

01 8. 21 2. 1 69 , 1 29, 1 HI ,018, 
21 2, 173, 1 83, 002, 072, 2H8, 

056.233.001 ,21 6, 1 HI , 1 83 , 

002 . 1 69,002, 1 Hi ,039,208. 

1 69.000. 1 33.029. 1 33.028, 
1 33.030, 1 Hi ,032,208, 1 65, 
029, 02H, 105, 006, 133. 029, 
1 HH, 002, 230, 030, 165,028, 
02 H , 101 ,029, 1 33.028.008, 

173.001 ,208, 101 ,030, 1 HI , 
001 .208, 1 76, 027, OHO, 176, 
OOH, 165, 030, 2H0, 008, 173, 

032.208.073.002. 1 HI ,032, 

208. 1 73.1 78,002 , 1 HI , 1 79, 
002,032,056,01 H, 076, 002, 

01 2. 1 OH , 1 69,003. 1 HI ,039, 
208, 1 69,01 1 , 1 HI ,032,208, 
162,255,032,2H5,015.10H, 
2H0, 003, 076, 205, 009. 162, 
10H ,032, 1 31.016,1 60,002, 

185.172.002.217.175.002, 
1 HH ,01 6,208,003 ,136,016, 
2 H 3 , 1 60,002, 1 85 , 172,002, 
153.1 75,002, 1 36,01 6, 2H7 . 

1 69.000. 1 HI ,02H , 21 2, 1 62, 
255 ,032, 2H5 ,01 5, 1 69, 01 5, 
1 Hi ,02H,21 2,076,2H1 ,008, 
1 65 , 032 , 2H0 ,002 ,198, 032 , 
1 65, 036 , OHI ,01 6,208,007, 
169,080,1 33,032,076,1 38, 
01 3. 165,032,201 , 079 , 2H0 , 

008.201 .000. 208.2H3, 169, 

030. 1 33,032,169,009, 1 HI , 
01 2,21 2, 1 69 ,000, 1 HI ,01 3. 

21 2. 1 HI ,007,21 2. 169.030, 
1 HI ,008,21 2 , 1 69 , 1 29 , 1 HI , 
01 1 ,21 2, 1 60 ,01 8, 173, 2H8, 
163,056,233, 160, 1H1 ,170, 
002,208,002 ,160,021,162, 

007.169.000. 157.080. 176. 

202.01 6,250.1 73,001 ,208, 

056.233.002. 1 HI ,1 69,002, 
OHI,, 007, 170, 1 69,085, 157. 

080. 176.173.1 69 , 002 , 07 H , 
07H ,07H ,056 , 233 ,005 , 1 HI , 
169,002, 170,032, 1 31 ,015, 
177,251 ,201 , 0 H 3 , 1HH.00H, 
201 , OH 6 , 1 HH , 0 H 6 , 20 1 ,052, 


176,012,201 ,0H6, 176,032, 
201 , 007 , 1 HH , OOH , 201 ,010, 
1 HH ,02H , 1 69 , 01 0, 1 H5 , 251 , 

169.001 , 1 H5 ,253, 1 92,000 , 
2H0.01 2,136,173. 170,002, 
208,21 2,200,200, 192, OHO, 
1HH.206.1H0.171 , 002,076, 

089.01 3. 1 HO, 1 71 ,002, 1 62 , 

063. 189.1 92, 16H ,205, 1 69, 
002,2H0,006,202,016,2H5, 

076,089,013,173.171 ,002, 
02H , 101 ,025,221 , 1 28, 1 6H , 
208,239. 189, 06H.16H, 201 , 
OOH , 1 76,232 , 1 H2, 1 81 .002 , 
206, 1 80 ,002 ,032, OOH ,01 6, 
1 62, 005, 032, 2H5, 015, 169, 
032,172,171 ,002,192,020, 
2H0.01 3, 1 H5 , 251 , 1 36, 1 7H , 
170,002,2H0,2HH,200,200, 
076,099,01 3, 162,001 .032, 
2H5.01 5. 173.031. 208, 1 69, 
000 , 1 HI , 01 1 , 21 2, 1 73 . 1 78, 

002. 1 HI , 179,002,032,063, 
01 H, 165, 1 9 7 ; 2 0 1 , OOH, 208, 
003,076,085,01 2,201 ,005, 

208.020. 1 65,033,073.001 . 
1 33.033.2HO,005,032,2H1 , 
010,208,061 ,1 69,008, 1 HI . 
OOH ,21 2,208, 05H ,201 ,003, 
2 HO, OOH, 201 ,063,208,0 50. 
173, 1 H 1 , 002,2HO,015.169, 
071 , 1 H 1 , 02H , 003 , 1 69 , 25H , 
1 HI ,025,003 . 1 69,000, 1 33. 

198,000,036, 197,080,252, 

169.000. 1 H1 , 02 H , 21 2 , 1 7 3 , 
000,220,201 ,11 1 , 2H0 , 0 1 H, 
165,197,201 .063.2H0.00H, 
201 ,003,208,239,036,1 97, 

080 . 252. 1 69 , 01 5, 1 HI ,02H , 
212,076,006,01 1 , 165,026, 
1 HI , 1 69,002 , 1 65,025, 1 Hi , 

170.002.1 60.000. 173.171. 
002, 2 HO, 005, OH H, 01 7, 208, 
01 6,251 ,1 73, 1 79, 002, 1 H1 . 
178, 002, 17H, 169. 002, 189, 
099,017,170,032,131 .015, 
1 69,032, 1 H5, 251 , 1 7 H , 170, 
002, 189,099,018,072,189, 

099.01 7 , 1 70 ,032, 1 31 ,01 5, 
1 69 .01 3 . 1 H5, 253 , 1 OH , 1 H5 . 
251 , 238,1 69,002,238,1 70, 
002,200, 192, OHO, 208, 210, 

096. 169.000. 1 HI, 171 ,002, 
2H0, 005, 1 69.001 , 1 H 1 ,171 , 

002.032.237.01 3.162.000, 
1H2,169,002,17H,169.002, 
1 89.06H , 1 6H ,201 ,01 6, 1 HH , 
071,201 ,057, 1 HH ,058, 1 60 , 
015,173,1 80 ,002 .208.0H3 , 
236,181 .002,208,038.1 69, 
003, 1H1 ,039,208,1 69,01 2, 
1 HI ,032 , 208, 2H8, 1 73,1 83 , 

002 . 02 H , 1 05,001 , 1 HI , 1 83 . 
002,21 6 , 1 65,025. 1 33,026, 
1 62,052,032, 131,016,169, 
01 1 , 1 HI ,032,208,076.075, 
009,072 , 1 OH , 1 36,208.251 . 
076, 113.01 5.07H.07H ,07H , 
02H,105,003,25H,06H,16H, 
1 H 1 , 1 8H , 002 , 1 88 , 1 28 , 1 6H , 
1 HO, 1 85 , 002 , 1 88, 1 92 , 1 6H , 
1 HO , 1 86 , 002 ,1 72,171, 002 , 


20 


208 

1 05 

201 

,003 

,240 

, 055 , 

021 

1 33 

.020 

160 

000 

189 , 

000 , 

, 002 , 

005 , 

006 , 

002 , 

000 . 

254 , 

,254 , 

, 224 , 

, 252 , 

, 254 , 

014 , 

201 

,002 

,240 

.032 

176 

, 095 , 

002 

022 

1 45 

020 

232 

200 , 

000 , 

,000 , 

,000 , 

, 000 . 

, 000 , 

000 , 

254 . 

, 124 , 

, 124 , 

, 252 , 

, 224 , 

252 , 

032 

.173 

.015 

,240 

,003 

. 032 , 

192 

,002 

,208 

245 

1 89 

002 , 

000 , 

,000 , 

, 000 , 

,000 , 

, 000 , 

, 000 , 

254 , 

, 238 , 

, 254 , 

, 124 , 

,254 , 

, 254 . 

255 

,01 4 

,032 
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,097 

, 008 , 

, 060 , 

141 , 

017 , 

208 , 

1 40 , 

022 , 

208 , 

000 , 

, 000 , 

,000 , 

, 000 , 

, 000 , 

, 000 , 

1 26 

,254 

,224 

, 252 , 

, 126 

, 014 , 

071 , 

, 006 , 

, 020 , 

,097 

, 008 , 

, 010 . 

173 . 

01 3 . 

220 , 

041 , 

001 , 

240 , 

000 , 

, 000 , 

, 000 , 

, 000 , 

, 000 , 

, 000 , 

254 

, 252 

,124 

.254 

,238 

. 224 , 

143 , 

, 010 , 

, 060 , 

,071 

, 006 , 

, 020 , 

005 . 

1 98 , 

002 , 

076 , 

049 , 

234 . 

000 , 

, 000 , 

,000 , 

, 000 , 

,000 , 

, 000 , 

224 

.238 

, 254 

, 124 

,252 

, 254 , 

097 , 

, 008 , 

, 010 , 

,143 

, 010 , 

, 030 , 

1 04 , 

1 68 , 

1 04 , 

1 70 . 

104 , 

064 , 

000 , 

, 000 , 

,000 , 

, 000 , 

,000 , 

, 000 , 

238 

.254 

,25 2 

.238 

,238 

, 238 , 

071 , 

, 006 , 

, 020 , 

,097 

, 008 , 

, 010 , 

032 , 

006 , 

017 , 

232 . 

189 . 

002 , 

000 , 

, 000 , 

, 000 , 

, 000 , 

, 000 , 

, 003 , 

254 

. 254 , 

,224 

,252 

,252 

. 224 , 

143 , 

, 010 , 

, 030 , 

,071 

, 006 , 

, 020 , 

022 , 

141 , 

169 . 

002 , 

202 , 

1 60 , 

004 , 

,001 , 

,001 , 

,001 , 

,001 , 

,001 , 

254 

,254 

,124 

,254 

.238 

. 238 . 

097 , 

, 008 , 

, 010 , 

,143 

. 010 , 

, 060 , 

000 , 

189 , 

002 , 

022 , 

153 . 

003 . 

001 , 

,001 , 

,002 , 

, 002 , 

, 002 , 

, 002 , 

238 

. 238 , 

, 254 

,124 

,056 

, 120 , 

097 , 

, 008 , 

, 020 , 

,143 

. 010 , 

, 010 , 

212 , 

153 . 

010 , 

212 , 

153 . 

017 , 

002 , 

,005 , 

,006 , 

, 000 , 

,000 , 

,001 , 

248 

. 056 , 

, 056 , 

, 056 , 

,254 

, 254 , 

143 , 

, 012 , 

, 060 , 

,143 

, 010 , 

, 020 , 

212 , 

232 , 

200 , 

1 92 , 

004 , 

208 , 

001 , 

, 003 , 

,004 , 

,001 , 

, 000 , 

,002 , 

252 

.254 , 

,014 

, 028 , 

,112 

, 224 , 

097 , 

, 008 , 

, 010 , 

,071 

, 006 , 

, 060 , 

238 , 

169 , 

002 , 

141 , 

170 , 

002 , 

005 , 

, 006 , 

,007 , 

, 008 , 

, 009 , 

, 002 , 

254 

, 254 , 

, 252 , 

,254 , 

,014 

, 124 , 

071 , 

, 006 , 

, 020 , 

,071 

, 006 , 

, 010 , 

169 . 

212 , 

133 . 

021 , 

032 , 

01 6 . 

002 , 

,002 , 

, 000 , 

, 000 , 

, 000 , 

, 003 , 

1 24 

, 014 , 

,254 , 

, 252 , 

,014 

, 030 , 

097 , 

, 008 , 

, 060 , 

,000 

, 000 , 

, 000 , 

017 , 

172 , 

170 , 

002 , 

185 , 

102 , 

004 , 

, 000 , 

,003 , 

, 004 , 

,001 , 

, 000 , 

1 26 

, 238 , 

, 254 , 

,254 , 

,01 4 

, 014 , 

000 , 

, 000 , 

, 000 , 

,000 

, 000 , 

, 055 . 
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RESCUE OF BLONDELL 




rvtt, ic 


BONUS 



10 PRINT" { CLR } {3 CUR .GIU} "TAB( 1 1 )" { GRAY2 
} { RVS ON } RESCUE OF BLONDELL” 

20 P R I N T ” { 4 CUR.GIU}"TAB( 1 1 )" {CYAN} {RVS 
ON } STO INSERENDO IL L/M...” 

30 PRINT" { 4 CUR.GIU}"TAB(1 1 )"{CYAN} {RVS 
ON } ATTENDE RE PREGO..." 

40 FORI=491 52T051 972 
50 READA : CK-CK+A : POKEI , A : NEXT 
60 IFCK031 8395THENPRINT" { 3 CUR.GIUjERRO 
RE NELLE ISTRUZIONI D A T A ! ! ! " : ST OP 


70 SYS 4 9 1 52 

491 52 

DATA 

49159 

DATA 

491 66 

DATA 

491 73 

DATA 

49180 

DATA 

491 87 

DATA 

491 94 

DATA 

49201 

DATA 

49208 

DATA 

4921 5 

DATA 

49222 

DATA 

49229 

DATA 

49236 

DATA 

49243 

DATA 

49250 

DATA 

49257 

DATA 

49264 

DATA 

49271 

DATA 

49278 

DATA 

49285 

DATA 

49292 

DATA 

49299 

DATA 

49306 

DATA 

4931 3 

DATA 

49320 

DATA 

49327 

DATA 

49334 

DATA 

49341 

DATA 

49348 

DATA 

49355 

DATA 

49362 

DATA 


76.46.202.32.145.196.32 
151,195,32,142,194,32,197 
1 93,32, 222 , 1 93,32,1 64,1 95 
32,209,201 ,173,31 ,208, 1 65 
2,208,57,173,60,3,201 
232,240,3,76,125,192,173 
61 ,3,201 ,65 , 240 , 3 ,76 
125,192,162,50,32,50,193 

202 . 208 . 250 .1 69,6,1 41,39 
208,162,32,142,2,68,142 

3.68.142.2.70.142.3 

70.1 69,1 ,1 33, 2', 32, 164 
195,76,125,192,169,13, 205 

60.3.169.64.237.61 .3 

1 44,25,1 73 , 1, 208 , 201 , 1 1 8 

144.18.173.0. 208 . 201.114 
176,11 ,169,168,133,113,169 
1 98,1 33 , 1 1 4,76,1 07, 202 , 32 

60 .201.32 , 1 74, 200 ,32,78 
199,32,53,196,206,248,207 

208.8.32.35.200.169.2 

141 .248.207.32.60.201 .32 

174 . 200 .162.0. 189 . 249 . 7 

201 .250.208.40.222.170.2 

208.35.169.253.157.52.3 
1 69 , 252 ,157,55,3,138,10 

1 68, 1 69, 25, 1 53-, 3, 208, 1 73 
27,21 2,1 74,60,3, 224 , 1 5 
176,4,201 ,120,144, 242 , 1 53 
2,208,232,228,20,208,204 
173,31, 208,72 ,74,144,20 



49369 
49376 
49383 
49390 
49397 
49404 
494 1 1 
4941 8 
49425 
49432 
49439 
49446 
49453 
49460 
49467 
49474 
49481 
49488 
49495 
49502 
49509 
4951 6 
49523 
49530 
49537 
49544 
49551 
49558 
49565 
49572 
49579 
49586 
49593 
49600 
49607 
4961 4 
49621 
49628 
49635 
49642 
49649 
49656 
49663 
49670 
49677 
49684 
49691 
49698 
49705 
497 1 2 
4971 9 
49726 
49733 
49740 
49747 
49754 
49761 
49768 
49775 
49782 
49789 
49796 


DATA 32,211,202,169,10,133,113 
DATA 169,199,133,114,169,0,133 
DATA 106,133,107,76,107,202,104 
DATA 13,30,208,74,144,13,206 
DATA 167,2,174,167,2,224,255 
DATA 208,3,76,217,192,160,0 
DATA 74,72,144,26,185,249,7 
DATA 201,250,240,19,32,50,193 
DATA 169,20,153,170,2,169,250 
DATA 153,52,3,153.55,3,153 
DATA 249,7,104,200,196,20,208 
DATA 220,173,141,2,208,251,32 
DATA 68,193,76,27,192,173,168 
DATA 2,24,105,10,141,168,2 
DATA 173,169,2,105,0,141,169 
DATA 2,96,173,168,2,133,253 
DATA 173,169,2,133,254,169,130 
DATA 1 41 ,-249,207,32, 1 20, 1 93, 1 73 
DATA 167,2,133,253,169,0,133 
DATA 254,169,147,141,249,207,32 
DATA 120,193,165,106,133,253,165 
DATA 107,133,254,169,218,141,249 
DATA 207,32,120,193,96,160,9 
DATA 1 69,0,1 41 , 32,203,1 65,2.53 
DATA 217,174,193,165,254,249,175 
DATA 193,144,20,165,253,56,249 
DATA 174,193,133,253,165,254,249 
DATA 175,193,133,254,238,32,203 
DATA 208,224,173,32,203,32,185 
DATA 193,169,0,141,32,203,136 
DATA 1 36,16,209,96,1 ,0,10 
DATA 0,100,0,232,3,16,39 
DATA 238,249,207,174,249,207,9 
DATA 48,157,208,6,96,160,0 
DATA 169,0,133,251,169,64,133 
DATA 252,162,40,169,32,145,251 
DATA 200,208,249,230,252,202,208 
DATA 244,96,160,0,169,0,133 
DATA 251,169,64,133,252,169,0 
DATA 1 45,251,32,1.21 , 1 94,200,1 92 
DATA 16,208,246,169,0,133,251 
DATA 169,86,133,252,145,251,32 
DATA 121,194,200,192,27,208,246 
DATA 169,0,145,251,32,121,194 
DATA 200,208,66,230,252,232,224 
DATA 2 , 208 , 59,1 69,1,1 41,2 
DATA 68,169,2,141 ,3,68,169 
DATA 3,141,2,70,169,4,141 
DATA 3,70,169,32,141,0,68 
DATA 141,1,68,141,0,70,141 
DATA 0,66,141,1,66,141,2 
DATA 66 , 1 41 , 1 , 70 , 1 41 , 3 , 66 
DATA 160,16,169,5,153,0,86 
DATA 200,192,22,208,248,96,173 
DATA 27,212,201,85,144,173,201 
DATA 160,176,14,165,252,201,72 
DATA 144,163,56,233,2,133,252 
DATA 76,6,194,165,252,201,96 
DATA 176,149,24,105,2,133,252 
DATA 76,6,194,165,252,72,169 
DATA 0,145,251,230,252,230,252 
DATA 165,252,201,136,144,242,104 


Immaginate di essere stati 
catapultati, per qualche sor- 
ta di incantesimo nel mondo 
incantato delle mille e una 
notte, dove un califfo dispe- 
rato vi chiede, con l’ausilio 
di un tappeto volante di an- 
dare in ricerca e salvare la 
sua unica adorata figlia 
Blondell. In premio alla vo- 
stra impresa avrete immen- 
se ricchezze e, ovviamente 
la mano della principessa. Il 
viaggio per altro non si pre- 
senta tra i più facili, poiché 
sarete ostacolati nel salva- 
taggio da orde di uccelli fa- 
melici che cercheranno di 
saltare sul vostro tappeto e 
vi lanceranno contro delle 
minacciose scariche, che se 
vi colpiranno, faranno dimi- 
nuire l’intensità del vostro 
scudo di protezione, che sa- 
rà indebolito anche solo dal 
contatto con uno degli uc- 
celli che eventualmente an- 
drete a toccare. In ogni caso 
disponete anche voi della 
possibilità di abbattere gli o- 
diosi volatili mandati dal 
mago nemico con delle sca- 
riche di energia. Una volta 
esaurito il potere dello scu- 
do dovrete fare affidamento 
solo sulle vostre forze. Per 


compiere la vostra missione 
avete un tempo determina- 
to, quindi il bonus che otter- 
rete a fine missione decre- 
scerà in modo inversamente 
proporzionale al tempo im- 
piegato. All’inizio del gioco 
potrete scegliere il livello di 
difficoltà (da 1 a 3) la prin- 
cipessa si trova in cima ad 
una torre e per recuperarla 
dovrete solo toccarla (e voi 
diventerete blu) e, riaffron- 
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49803 DATA 133,252,96,169,4,141,60 
49810 DATA 3,169,64,141,61,3,169 
49817 DATA 147,32,210,255,160,255,169 
49824 DATA 14,153,255,215,153,254,216 
49831 DATA 153,253,217,153,252,218,136 
49838 DATA 208,241,169,1,141,33,208 
49845 DATA 162,24,169,0,157,0,212 
49852 DATA 202,16,250,169,129,141,18 
49859 DATA 212,169,200,141,15,212,169 
49866 DATA 15,141,24,212,160,4,162 
49873 DATA 21,24,32,240,255,160,198 
49880 DATA 169,152,32,30,171,160,20 
49887 DATA 162,21,24,32,240,255,160 
49894 DATA 198,169,160,32,30,171,160 
49901 DATA 12,162,23,24,32,240,255 
49908 DATA 160,199,169,70,32,30,171 
49915 DATA 169,129,141,26,208,169,127 
49922 DATA 141,13,220,169,0,141,40 
49929 DATA 208,141,41,208,141,42,208 
49936 DATA 141,45,208,141,44,208,141 
49943 DATA 43,208,169,11,141,46,208 
49950 DATA 169,251,141,255,7,141,254 
49957 DATA 7,141,253,7,141,252,7 
49964 DATA 169,33,141,4,212,169,208 
49971 DATA 133,106,169,7,133,107*169 
49978 DATA 0,133,108,169,16,141,5 
49985 DATA 212,169,240,141,6,212,169 
49992 DATA 15,141,24,212,162,2,169 
49999 DATA 253,157,52,3,169,252,157 
50006 DATA 55,3,202,16,243,169,0 
50013 DATA 141,18,208,173,17,208,41 
50020 DATA 127,141,17,208,160,7,169 
50027 DATA 0,153,0,57,136,16,250 
50034 DATA 160,47,185,104,198,153,0 
50041 DATA 56,136,16,247,169,2,141 
50048 DATA 35,208,169,0,141,34,208 
50055 DATA 133,2,169,200,141,167,2 
50062 DATA 1 69 , 0 , 1 4 1 , 1 68 , 2 , 1 4 1 , 1 69 
50069 DATA 2,96,120,169,123,141,20 
50076 DATA 3,169,199,141,21,3,88 
50083 DATA 96,173,60,3,141,201,195 
50090 DATA 173,61,3,141,202,195,169 
50097 DATA 0,141,204,195,169,4,141 
50104 DATA 205,195,162,19,169,0,141 
50111 DATA 63,3,173,17,208,16,251 
50118 DATA 160,39,185,0,0,153,0 
50125 DATA 0,136,16,247,173,204,195 
50132 DATA 24,105,40,141,204,195,173 
50139 DATA 205,195,105,0,141,205,195 
50146 DATA 238,202,195,238,202,195,202 
50153 DATA 208,219,96,206,62,3,16 
50160 DATA 50,238,60,3,208,3,238 
50167 DATA 61,3,169,7,141,62,3 
50174 DATA 32,164,195,76,35,196,238 
50181 DATA 62,3,173,62,3,201,8 
50188 DATA 208,21,206,60,3,173,60 
50195 DATA 3,201,255,208,3,206,61 
50202 DATA 3,169,0,141,62,3,32 
50209 DATA 164,195,32,46,196,96,133' 
50216 DATA 38,134,39,132,40,96,165 
50223 DATA 38,166,39,164,40,96,174 
50230 DATA 0,208,172,1,208,169,0 


50237 

DATA 

50244 

DATA 

50251 

DATA 

50258 

DATA 

50265 

DATA 

50272 

DATA 

50279 

DATA 

50286 

DATA 

50293 

DATA 

50300 

DATA 

50307 

DATA 

5031 4 

DATA 

50321 

DATA 

50328 

DATA 

50335 

DATA 

50342 

DATA 

50349 

DATA 

50356 

DATA 

50363 

DATA 

50370 

DATA 

50377 

DATA 

50384 

DATA 

50391 

DATA 

50398 

DATA 

50405 

DATA 

5041 2 

DATA 

5041 9 

DATA 

50426 

DATA 

50433 

DATA 

50440 

DATA 

50447 

DATA 

50454 

DATA 

50461 

DATA 

50468 

DATA 

50475 

DATA 

50482 

DATA 

50489 

DATA 

50496 

DATA 

50503 

DATA 

5051 0 

DATA 

5051 7 

DATA 

50524 

DATA 

50531 

DATA 

50538 

DATA 

50545 

DATA 

50552 

DATA 

50559 

DATA 

50566 

DATA 

50573 

DATA 

50580 

DATA 

50587 

DATA 

50594 

DATA 

50601 

DATA 

50608 

DATA 

5061 5 

DATA 

50622 

DATA 

50629 

DATA 

50636 

DATA 

50643 

DATA 

50650 

DATA 

50657 

DATA 

50664 

DATA 


1 33,251 ,1 73,0, 220 ,74,1 76 
5,192,47,144,1,136,74 
176,5,192,175,176,1, 200 

74.1 76,21 ,72,1 69, 255 , 1 41 

248 . 7.1 04, 224 ,1 07, 208 , 9 
32,39,196,32,4,196,76 

1 06,1 96 ,202 ,74,1 76,21 , 72 
1 69 , 254 ,1 41 , 248 , 7,1 04, 224 

205 . 208 . 9.32.39.1 96,32 

236 . 1 95,76,1 30,1 96 ,232 ,74 
1 76,5,1 69,1 ,1 41 ,1 28,3 

1 42,0,208, 1 40,1 ,208,96 
160,255,185,231 ,196,153,127 

62.185.104.197.153.0. 63 

1 36 , 208,241 , 1 69,255 ,1 41 ,21 

208 . 1 69,2 , 1 41 , 39 , 208, 1 69 
254 ,1 41 ,248,7 ,169 , 1 1 8,1 41 
1 , 208 , 1 69,1 38,141 , 0 , 208 

1 73,22, 208,41 , 247 , 1 41 , 22 
208, 169,4,141 , 62,3,169 
0,141,63,3,169,20,141 

3.208. 1 41 ,5,208, 1 41 ,7 

208.1 69,80,1 41 , 2,208,1 69 

1 60,1 41 , 4 , 208, 1 69,240, 1 41 

6 . 208 . 96.1 44,0,2,64 
0,16,184,0,38,20,0 
0,41 ,16,36,4,68,80 

2.130.36.1.64.168.0 
1 76,0,1 ,52,64,0,240 

1 6,95,1 04, 208 , 1 96,0,1 28 

73.128.0. 166.34.160.141 
72,32, 1 , 34,74,0,202 

41 .0. 0.160.0.0.2 
0,0,18,0,0,0,0 
0,0, 0,0, 0,0,0 
0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0,0 
0,0,0,2,34,0,5 

85.64.0. 136.128.0.0 

0 , 0 , 0 , 0 , 0 , 0,0 

0,0, 0,0, 0,0,0 
0,0, 0,0, 0,0,0 
0,0, 0,0, 0,0,0 
0,0,0,0,0,60,0 
0 , 66 , 0 , 0 , 66 , 0,0 

90.0. 3.195.192.12.66 
48,16,66,8,32,66,4 
73,165,146,146,36,73,164 
24,37,168,189,21 ,168,195 

21 .81 .0. 138.2.0.64 

2.0. 64.5.0.160.0 
0,0,0,0,0,255,0 
0 , 0 , 0 , 0 , 0 , 0,60 
0,0,66,0,128,66,1 
126,90,126,33,195,132,192 
66,3,32,66,4,32,66 
4,80,36,10,24,36,24 

20.24.40.3.189.192.0 

195.0. 1 .0.128.2.0 

64,2,0,64,5,0,160 
0,0,0,0,0,0,255 
0,0, 0,0, 0,0,0 


tando gli uccellacci tornere- 
te alla base. Attenzione a 
non rientrare alla base sen- 
za principessa: avreste 
brutte sorprese. 

Nello schermo oltre al pun- 
teggio avrete il livello di for- 
za dello scudo e il valore del 
bonus. 

Tratto da 

“Super Commodore" n. 5 
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50671 

DATA 

0,0,15,128,0,31 .192 

50678 

DATA 

0,31 , 1 92,0,31 , 224,0 

50685 

DATA 

15,240,0,3,224,96,3 

50692 

DATA 

224,127,3,255,195,3,255 

50699 

DATA 

252,3,224,0,3,224,0 

50706 

DATA 

3.224,0,59,255,156,67 

5071 3 

DATA 

255 ,1 30,1 31 , 255 ,1 29,71 , 24 

50720 

DATA 

226,56,231 ,28,0,0,0 

50727 

DATA 

184,0,0,0,0,0,0 

50734 

DATA 

0 , 0 , 0 , 0 , 1 , 240 , 0 

50741 

DATA 

3,248,0,3,248,0,7 

50748 

DATA 

248,0 , 1 5 ,240 ,6,7,1 92 

50755 

DATA 

254,7,192,195,255,192,63 

50762 

DATA 

255,192,0,7,192,0,7 

50769 

DATA 

192,0,7,192,57,255,220 

50776 

DATA 

65,255,194,129,255,193,71 

50783 

DATA 

24,226,56,231 , 28,0,0 

50790 

DATA 

0,184,85,105,105,85,85 

50797 

DATA 

105,105,85,5,22,22,7 

50804 

DATA 

15,63,62,59,80,148,148 

5081 1 

DATA 

208,240 , 252 , 1 88,236, 15,15 

5081 8 

DATA 

15,63,63.63,255,255,240 

50825 

DATA 

240,240,252,252,252,255,255 

50832 

DATA 

255,255,255,255,255,255,255 

50839 

DATA 

255,144,83,67,79,82,69 

50846 

DATA 

58,0,1 44,77,65,71 ,73 

50853 

DATA 

67.58,0,158,89,79,85 

50860 

DATA 

32,83,65,86,69,68,32 

50867 

DATA 

84,72,69,32,80,82,73 

50874 

DATA 

78, 67, 69 >83, 83, 32,33 

50881 

DATA 

0, 28, 66 ,"Y9 r , 78,85,83 

50888 

DATA 

17.17.t57i 157,157,157,157 

50895 

DATA 

83,67,79,82,69,17,17 

50902 

DATA 

157,157,157,157,72,73,84 

50909 

DATA 

32,65.78,89,32,75,69 

5091 6 

DATA 

89,0,28,78,85,77,66 

50923 

DATA 

69,82,32,79,70,32,66 

50930 

DATA 

73,82,68,83,32,40,49 

50937 

DATA 

45,51 ,41 ,32,79,82,32 

50944 

DATA 

81 , 32,84,79,32,81 ,85 

50951 

DATA 

73,84,0,158,80,79,79 

50958 

DATA 

82,32,80,82,73,78, 67 

50965 

DATA 

69,83,83,32,66,76,79 

50972 

DATA 

78,68,69,76,76,0,7 

50979 

DATA 

12,120,7,233,120,8,97 

50986 

DATA 

240,7,233,240,7, 12,240 

50993 

DATA 

7,12,120,7,233,120,8 

51000 

DATA 

97,120,10,143,1 20,7,233 

51007 

DATA 

120,8,97,120,7,12,240 

51 01 4 

DATA 

28,66,79,78,85,83,58 

51021 

DATA 

0,1 62,3,1 60, 255 ,1 36, 208 

51028 

DATA 

253,202,208,248,165,108,208 

51035 

DATA 

30,1 98,1 09, 208,26, 1 69,20 

51042 

DATA 

133,109,198,106,165,106,201 

51049 

DATA 

255 , 208 ,14,198,107,16,10 

51056 

DATA 

169,1,133,108,169,0,133 

51063 

DATA 

106,133,107,96,169,1,141 

51070 

DATA 

25,208,173,18,208,201 ,204 

51077 

DATA 

1^4,36,173.22, 208,41 , 248 

51084 

DATA 

9,0,1 41 ,22,208, 1 73,24 

51091 

DATA 

208,41 , 240,9,5, 141,24 

51098 

DATA 

208, 1 73.22,208,41 ,239, 1 41 


51 105 

DATA 

22,208, 169,0,141, 18,208 

51112 

DATA 

76,205,199,173,22,208,41 

51119 

DATA 

240,13,62,3,141 ,22,208 

51 1 26 

DATA 

1 69 , 205 , 141,18, 208 , 173,24 

51 1 33 

DATA 

208,41 ,240,9,1 4,141,24 

51 1 40 

DATA 

208,173,22,208,9,16,141 

51 1 47 

DATA 

22,208, 1 73,1 3,220,41 ,1 

51 1 54 

DATA 

240,76,206,133,3,208,68 

51 1 61 

DATA 

169,5,141 ,133,3,173,132 

51 1 68 

DATA 

3 , 208 , 30,169,1,141,132 

51 1 75 

DATA 

3,173,52,3,1 41 ,249,7 

51 1 82 

DATA 

173,53,3,141 ,250,7,173 

51 189 

DATA 

54,3,1 41 ,251 ,7,169,129 

51 1 96 

DATA 

141,11 , 21 2,208, 28 ,173,55 

51203 

DATA 

3.141 ,249,7,173,56,3 

51210 

DATA 

141 , 250 ,7,173,57,3,141 

51217 

DATA 

251,7,169,128,141,11,212 

51 224 

DATA 

169,0,141 ,132,3,76,49 

51231 

DATA 

234,76, 1 88,254 , 162,0,138 

51 238 

DATA 

74,168,185,249,7,201 ,250 

51245 

DATA 

240,1 17,173,27,212,201,75 

51252 

DATA 

144,43,201,105,176,6 ,222 

51259 

DATA 

2,208,76,1 52,200,201 , 1 50 

51 266 

DATA 

176,13,189,2,208,201 ,200 

51273 

DATA 

240,77,254,2,208,76,1 52 

51 280 

DATA 

200 , 201,1 90,1 76,6 ,222 , 3 

51287 

DATA 

208,76,152,200,254,3,208 

51 294 

DATA 

76,152,200,189,2,208,205 

51301 

DATA 

0,208,240,28,1 44 , 1 1 ,222 

51308 

DATA 

2 , 208 ,169,1,157,176,2 

51315 

DATA 

76,1 33,200,1 89,2,208,201 

51 322 

DATA 

255,240,27,254,2,208,169 

51 329 

DATA 

0,157,176,2,189,3,208 

51 336 

DATA 

205,1 ,208,240,18,144,6 

51343 

DATA 

222,3,208,76,152,200,254 

51 350 

DATA 

3,208,1 73,27,21 2,201 ,2 

51357 

DATA 

176,5.169,1 ,157,80,3 

51 364 

DATA 

232,232,228,21 ,240,3,76 

51371 

DATA 

37,200,96,1 62,0,189,192 

51 378 

DATA 

2 , 208,68, 189,80,3, 208 

51 385 

DATA 

3,76,38,201 ,189,176,2 

51 392 

DATA 

1 57 , 22^ , 2 , 240 , 12,189,2 

51399 

DATA 

208,56,233,20,157,8,208 

51 406 

DATA 

76 ,21 8,200 ,189,2, 208,24 

51413 

DATA 

105,20,157,8,208,32,45 

51 420 

DATA 

201,141, 255 ,2,173,21 , 208 

51 427 

DATA 

1 3 ,255 ,2,141,21, 208 , 189 

51 434 

DATA 

3,208,157,9,208,169,1 

51 441 

DATA 

157,1 92,2,169,56, 157,240 

51 448 

DATA 

2, 189,224,2,240,6,222 

51 455 

DATA 

8,208,76,7,201 ,254,8 

51462 

DATA 

208,222,240,2,208,26,169 

51469 

DATA 

0,157,192,2,157,80,3 

51 476 

DATA 

32,45, 201 ,24,105, 255 , 1 41 

51 483 

DATA 

255,2,173,21 ,208,45,255 

51 490 

DATA 

2,141 ,21 ,208,232,232,228 

51497 

DATA 

21 ,208,132,96,138,74,168 

51504 

DATA 

169,16,192,0,208,1 ,96 

51511 

DATA 

10,136,76,50,201 ,173,129 

51518 

DATA 

3,208,77,173.128,3,208 

51525 

DATA 

1,96,169,1,141,129,3 

51532 

DATA 

173,21 , 208,9 ,128,141,21 


51539 

DATA 

208,169,129,141 ,4,212,169 

51546 

DATA 

0,1 41 ,1 6,208,1 69,85,1 41 

51553 

DATA 

1 31 , 3,1 73,1 ,208,1 41 ,1 5 

51560 

DATA 

208, 173,248,7,201 ,255,208 

51567 

DATA 

15,169,1 ,141 ,130,3,173 

51574 

DATA 

0,208,56,233,19,141 ,14 

51581 

DATA 

208,96,169,0,1 41 ,130,3 

51588 

DATA 

173,0,208,24,105,19,141 

51595 

DATA 

14,208,96,173,130,3,208 

51 602 

DATA 

26,238,1 4 , 208 , 173,14, 208 

51609 

DATA 

201 , 255,208, 1 9, 1 73, 1 6,208 

51 61 6 

DATA 

9 , 1 28 , 1 41 , 1 6 , 208 ,1 69,0 

51 623 

DATA 

1 41 , 1 4, 208,76, 1 76, 201 , 206 

51 630 

DATA 

1 4 , 208 , 206 , 1 31,3,1 73 , 1 31 

51637 

DATA 

3 , 1 41 ,1 , 21 2,208,21 ,1 73 

51 644 

DATA 

21 , 208,41 , 1 27,1 41,21 , 208 

51651 

DATA 

1 69,0,1 41 ,1 29,3,1 41 , 1 28 

51 658 

DATA 

3,169,128,141 ,4,212,96 

51 665 

DATA 

169,0,141,13,212,141,12 

51 672 

DATA 

212,141 ,8,212,160,0,185 

51679 

DATA 

34 , 1 99 , 1 41 , 1 , 21 2 , 1 85 , 35 

51 686 

DATA 

1 99, 1 41 ,0,21 2, 1 90,36, 1 99 

51693 

DATA 

1 69 , 255 , 1 33, 41 , 1 98 , 41 , 208 

51 700 

DATA 

252,202,208,245,200,200,20 

51 707 

DATA 

192,36,144, 223 , 169,32,141 

51714 

DATA 

4,212,169,114,141,13,212 

51 721 

DATA 

169,17,141,12,212,141,8 

51728 

DATA 

212,96,120,169,49,141 ,20 

51 735 

DATA 

3,169,234,141 ,21 ,3,169 

51742 

DATA 

0,1 41 ,26,208,1 69,255,1 41 

51749 

DATA 

1 3 , 220 ,1 69,0,1 41 ,21 , 208 

51 756 

DATA 

88,96,32,91, 255 ,162,10 

51 763 

DATA 

160,3,24,32,240,255,169 

51770 

DATA 

230 ,1 60,1 98,32,30,1 71 , 1 69 

51777 

DATA 

1,141 ,33,208,165,203,201 

51 784 

DATA 

62,208,1 ,0,201 ,56,208 

51791 

DATA 

4,1 62,1 , 208,1 4,201 , 59 

51798 

DATA 

208,4, 162,2,208,6,201 

51 805 

DATA 

8 , 208 ,229,1 62,3,134,20 

51 812 

DATA 

138,10,133,21 ,76,3,192 

51 81 9 

DATA 

169,0,141 ,24,212,32,18 

51826 

DATA 

202,173,24,208,41 ,240,9 

51833 

DATA 

5,141,24, 208 ,169,147,32 

51 840 

DATA 

210 , 255 ,162,10,160,8,24 

51847 

DATA 

32,240,255, 165,113,164,114 

51 854 

DATA 

32,30,171 ,165,106,133,253 

51 861 

DATA 

165,107,133, 254 ,169,19,141 

51 868 

DATA 

249,207, 32,120,193,162,18 

51875 

DATA 

160,12,24,32, 240 , 255 , 1 69 

51882 

DATA 

194,160,198,32,30,171,169 

51889 

DATA 

0,141,33, 208, 165,106,24 

51 896 

DATA 

109,168,2,133,253,165,107 

51903 

DATA 

109,169,2,133,254,169,99 

51910 

DATA 

1 41 , 249 , 207 ,32,120,193,36 

51917 

DATA 

203 , 1 1 2, 252 ,76,46, 202 , 1 69 

51 924 

DATA 

8,1 41 , 3,21 2,1 69,20,1 41 

51 931 

DATA 

5,21 2, 1 69,240, 1 41 , 6,21 2 

51 938 

DATA 

1 69,9, 1 41 , 1 5,21 2, 1 69, 1 9 

51945 

DATA 

1 41 ,4,21 2,1 60, 255 ,1 40,1 

51952 

DATA 

212,152,160,3,202,208,253 

51959 

DATA 

1 36,208,250,168, 140,39,208 

51 966 

DATA 

1 36,208,237, 140,4,212,96 


CONIO CURVE PLOTTER 


Questo programma, permet- 
te agli utenti del C64, di 
tracciare grafici ad alta ri- 
soluzione, cosa notoriamen- 
te impossibile con l’inter- 
prete Basic che offre il vo- 
stro computer. Il program- 
ma permette il disegno di 


curve, linee, angoli cerchi 
agendo su un solo tasto. La 
bellezza del programma 
consiste anche nel fatto che 
non presenta fenomeni di 
schiacciamento di cerchi, el- 
lissi o curve, fenomeno cau- 
sato dalla forma rettangola- 


re dei pixel, il problema in- 
fatti è stato risolto sempli- 
cemente misurando le di- 
mensioni dei pixel in modo 
tale da poter dare una iden- 
tica lunghezza alle dimen- 
sioni delle figure; si è infatti 
scoperto che a 9 pixel in 
verticale ne equivalevano 
11 in orizzontale; da qui la 
creazione di tre tipi di 
schermo per poter gestire 
appieno la pagina grafica 
del nostro schermo 
(320x244 pixel); il primo 
con dimensioni “quadrate”, 
ottenute moltiplicando l’or- 
dinata verticale per 11/9, e 
quindi più indicato per la 
creazione di cerchi, curve e 
angoli; il secondo è il nor- 
male schermo ad alta risolu- 
zione (320x200) mentre il 
terzo permette all’utente di 
definire le dimensioni dello 
schermo. 

All’inizio del programma vi 
verrà chiesto di quale scher- 
mo vorrete usufruire, quindi 
il video passerà in alta riso- 
luzione e apparirà come 
cursore un pixel al centro 
dello schermo. Molti coman- 
di necessitano di informa- 
zioni addizionali, come per 
esempio la posizione di una 
curva o un angolo; la posi- 
zione è data dalle coordinate 
X e Y con l’origine (punto 
0,0) in alto a sinistra. At- 
tenzione a non dare valori 


10 FORI-49360TO49461 : RE ADJ : POKE I , J : NEXT 
2 0 F0RI-49485T049623 : RE ADJ : POKEI , J : NEXT 
30 DATA 173,0,192,133,0,173,2,192,133.2, 
173,3,192,133,3.96,165,3,141 
40 DATA 3,192,165,2,141,2,192,165,0,141, 
0,192,96,0,165,3,141,3,192,165 
50 DATA 2,141,2,192,165,0,32,224,192,169 
,32,133,3,169,0,133,2,133 
60 DATA 0,164,0,162,0,145,2,230,2,232,22 
4, 255, 208, 247, 145, 2, 230, 3, 169 
70 DATA 63,197,3,208,227,169,0,162,0,145 
,2,230,2,232,224,63,208,247,145 
80 DATA 2,141,63,63,76,208,192 
90 DATA 32,224,192,169,59,141,17,208,169 
,28,141,24 

100 DATA 208,169,4,133,3,169,0,133,2,133 
,0,162,0,164,0,169,3,145,2,230 
110 DATA 2,232,224,255,208,247.145,2,230 
,3, 169, 7, 1 97, 3. 20 8, 22 5, 1 69, 3 
120 DATA 162,0,145,2,230,2,232,224,231,2 
08, 247, 145, 2, 141, 231, 7, 76, 20 8, 192 
130 DATA 0,0,0,0,32,224,192,160,255,162, 
1,169,1,32,1 86,255,1 69,0 
140 DATA 32,189,255,169,0,133,2,169,32,1 
33,3,162,64,160,63 

150 DATA 169,2,32,216,255,76,208,192,0,0 
, 0 , 0,0 

160 DATA 169,1,162,1,160,255,32,186,255, 
169,0,32,1 89,255 

170 DATA 169,0,162,0,160,32,32,213,255,9 
6 

14 SYS 49405 

15 POKE46,71 : CLR : B ASE*8 1 92 

16 X=1 60 : Y=1 00:N = 1 : MO DE $ = " DR A W" : CP-53272 


superiori o non congruenti 
con lo schema prescelto e a da- 
re i valori agli angoli in gradi e 
non in radianti; gli angoli so- 
no misurati orizzontalmente 
in senso orario. 

Comandi con la 
pressione di un 
tasto 

A: traccia una linea con an- 
golo specificato. Vi viene ri- 
chiesto il punto di partenza 
e l’angolo della linea. Il cur- 
sore inizierà a muoversi 
tracciando la linea, fino a 
che venga raggiunto il bor- 
do dello schermo, o venga 
premuto un tasto qualsiasi. 
0: traccia un cerchio od un 
arco. Occorre specificare il 

30 


: BM-53265 : B0= P EE K ( 5 3 2 6 5 ) A N D 22 3 

17 POKECP , 21 : POKEBM , BO : PRINT" { CLR } " 

18 DIMX ( 1 1 ) : DIMY ( 1 1 ) : F0RK = 0T01 0 : READX ( K ) 
, Y (K) : NEXT 

19 DATA 0 ,0, 0,-1 ,0, 1 ,0, 0,-1 ,0,-1 ,-1 ,-1 , 1 
,0,0,1 ,0, 1 ,-1 ,1 ,1 

20 PRINTSPC(12)"{RVS ON}TIPO DI SCHERMO: 
" : PRINT 

21 PRINT" 1-' SCALA NORMALE' ( 320 , 200 ) " : P R 
I NT "2- 'SCALA SPECIALE' ( 320,244)" 

22 P R I N T " 3 -'SCALA DEFINITA DALL'UTENTE' 

ti 

24 PRINT : INPUTSCR : IFSCR-1 THENXP=1 :YP=1 :G 
OTO30 

26 IFSCR-2THENXP-1:YP-9/11: G0T030 

27 IFSCR*3THENPRINT : INPUT "DIMENSIONI (X, 
Y ) : " ; XM , YM : IFXM = 00RYM = 0THEN27 

28 XP»320/XM: YP*200/YM: G0T035 

29 G0T024 

30 XM * 3 2 0 : YM= I NT ( 200/YP ) 

35 SYS 49485 

40 DEF FN FY(Y)=INT(Y/8)*320+(YAND7) :DEF 
FN FX(X)=8*INT(X/8) 

42 DEF FN B 1 ( 0 ) «FNF Y ( Y ) ♦ FNFX ( X ) +8 1 92 : DEF 
FN B2(X)-7- (7ANDX) 

45 B Y* FNB 1 ( 0 ) :BI*FNB2(X) : POKEBY , PEEK ( BY ) 
OR ( 2tBI ) 

50 GETF $ 

60 IFF$=" J"THEN90 

61 IFF$="0"THEN1 000 

62 IFF$="C"THEN1 300 

63 IFF$*"I"THEN1 320 

64 IFF$="P"THEN800 

65 IFF$="H"THEN900 

66 IFF$="Q"THEN3200 
68 IFF$="A"THEN600 
70 IFF$="M"THEN1 200 

7 6 IFF$ = " {HOME } "THENX = 0 : Y = 0 : G0SUB4 00 : GOT 
045 

7 8 IFF$ = " {CLR } "THENSYS4 9 405 : X=1 60 : Y*1 00 : 
G0T045 

80 IFF$="S"THEN3000 
82 IFF$="L"THEN31 00 

86 IFF$ = "T"THENPOKECP , 21 : POKEBM , BO : PRINT 
" {CLR} " : GOT020 

88 IFF$="/"THEN5000 

89 GOT050 

90 J2*1 5- (PEEK(56320) AND1 5 ) 

95 GETC$ : IF C$=""THEN140 

1 00 IFC$="D"THENMODE$= "DRAW" :G0T01 40 
1 1 0 IFC$="E"THENMODE$="ERASE" : G0T01 40 
130 IFC$ = "{F1 }"THENN=1-N: G0T01 40 
1 35 N-1 : G0T050 
140 IFJ20RN THENJV* J2 



1 50 
1 60 
1 65 
1 80 
1 90 
300 
310 
320 
330 
335 
3^0 
350 
400 
410 
600 
602 


606 





610 
61 2 
615 
620 

625 

630 

632 


633 

635 

638 

640 

800 

802 

805 


81 0 





818 

820 

830 

835 

838 

840 

845 

848 

850 

852 


855 

860 


X-X+X(JV) : Y* Y+ Y ( JV ) 
IFM0DE$«"DRAW"THEN1 80 
GOSUB400 

B Y = FNB 1 (0) : B I * FNB2 ( X ) 

POKEBY ,PEEK(BY)0R(2+BI ) : GOTO90 
IFX<0THENX-O: G0T0340 
IFX>31 9THENX-31 9 :G0T0340 
I F Y< OTHEN Y -0 : GOTO340 
IF Y> 1 99THEN Y- 1 99 :G0TO340 

0- 0 : G0T0350 
0-1 

RETURN 

RB-PEEK(BY )- (2 + BI ) : I FRB<0THENRB-0 
POKEBY , RB : RETURN 

POKECP ,21 : POKEBM , BO : P R I NT " { CL R } " 
PRINTSPC ( 8 )"{ RVS ON } L I NE A AD UN ANCO 
LO" : PRINT 

X$«"" : Y$«"" : INPUT"PUNTO DI PARTENZA: 

(X , Y )" ; X$ , Y$ : I F X$ - " " AN D Y $ = " "THE N 6 20 
IFX»VAL(X$ )ANDY-VAL(Y$)THEN6l 5 
GOSUB400 

X-INT(VAL(X$)*XP):Y«INT(VAL(Y$)*YP) 
PRINT : INPUT "ANGOLO : " ; ANG : ANG- ANG* ir/ 1 
80 

GOSUB3360 

DX-COS ( ANG ) : DY»-SIN(ANG)*YP/XP 
BY-FNB1 (0) :BI-FNB2(X ) : IFD-1THENP0KEB 
Y , PEEK ( BY )0R(2 + BI ) :G0T0635 
GOSUB400 

GETS$ : I F S $ < > " "THEN50 

GOSUB300 : IFOUT-1 THEN50 

X-X+DX: Y-Y+DY: G0T0632 

POKECP, 21 : POKEBM , BO: PRINT" { CL R } " 

PRINTSPC (1 3)" {RVS ON} PARABOLA": PRINT 

PRINT"EQUAZ . PARABOLA : X-A*Y+2; DEF 

INISCI ’A’" 

INPUT A : IF A-OTHEN PRINT"USA ’O' 0 ’A 
» PER PLOTTARE UNA L I NE A " : G0T08 1 0 
SG-SGN ( A ) : PRINT 

INPUT "VERT ICE : ( X , Y ) " ; CX , C Y : CX-CX* XP 

: C Y-C Y * YP : PRINT 

PRINT "SPECIFICA ANGOLO TRA ASSE DI S 
IMMETR I A { 2 SPC}E ASSE ORIZZONTALE:" 
INPUT ANG: ANG«ANG*it/1 80 
GOSUB3360 
G0SUB4 00 : X-0 

Y-SQR ( ABS (X/A ) ) : GOSUB4450 : IFO-1 THE NO 

1- 1 

Y-- Y : G0SUB4450 :IF0-1THEN02-1 
X-X+1 *SG/XP 

IF01 +02-2THEN01 -0 :02-0 :X*CX: Y-CY: GOT 
045 

GETS$ : IFS$<>" "THENX-CX : Y-C Y : GOTO 4 5 
G0T0845 




raggio, il centro, l’angolo di 
partenza e la densità. Per 
tracciare un cerchio gli an- 
goli iniziale e finale sono ri- 
spettivamente 0 e 360. La 
densità può assumere valori 
tra 0.1 e 1, premendo RE- 
TURN si assume il valore di 
default di 0.667. La densità 
determina la spaziatura tra 
i pixel plottati: un valore 
Lasso causerà un cerchio 
composto da pochi punti, 
mentre un valore alto trac- 
cerà un cerchio molto più 
definito, impiegando tutta- 
via un tempo superiore. 

I: traccia un’ellisse. Occorre 
specificare i parametri A e B 
dell’equazione 

(X*X/A*A+Y*/B*B=1) 
il centro, l’angolo dell’asse 
maggiore e la densità. Il pa- 

31 


rametro A è metà della lun- 
ghezza dell’asse maggiore, 
mentre B è la metà dell’asse 
minore. Se A e B sono ugua- 
li, verrà tracciato un cer- 
chio di raggio A. 

P: traccia una parabola. Vi 
verrà richiesto il parametro 
A dell’equazione 

(X=A*Y*Y) 

il vertice, l’angolo dell’asse 
di simmetria e la densità. Il 
tracciamento può essere fer- 
mato in qualunque momen- 
to con la pressione di un ta- 
sto. 

H: traccia un’iperbole. Oc- 
corre specificare i parame- 
tri A e B dell’equazione 
(X*X/A*A-Y*Y/B*B=1) 
il centro, l’angolo dell’asse 
trasversale e la densità. An- 
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900 POKEC P , 2 1 :POKEBM,BO: PRINT" {CLR}" 

902 PRINTSPCC 1 2)" {RVS ON } HP E RBOLE n : P R I NT 
905 PRINT"EQUAZ . IPERBOLE : 'X+2/A+2-Y 

♦2/Bt2-1';{4 SPC1SPECIFICA 'A',’ 

B ’ ( A , B ) " 

910 INPUTA , B : IFA-OORB-OTHENPRINT" A , BOO" 
: G0T09 1 0 

920 PRINT : P R I NT " ANGOLO TRA ASSE TRASVERS 
ALE E ASSE ORIZZONTALE: " 

930 INPUTANG: ANG-ANG*ir/1 80 
940 PRINT : INPUT"COORDINATE CENTRO (X,Y) 
";CX,CY:CX«CX*XP:CY«CY*YP 
945 G0SUB3360 :BY-FNB1 (0):BI«FNB2(X) :GOSU 
B400 

948 X*SQR ( A+2+B+2 ) : Y-0 : G0SUB4450 : X-- 
X : GOSUB4 4 50 
950 X-A 

9 60 Y-SQR( (X *2/ A + 2-1 )*B + 2) :GOSUB4 4 
50: IF0-1THEN01 -1 

962 Y--Y:GOSUB4450:IFO«1THENO2«1 
970 X--X : GOSUB4450 : IFO-1 THEN03-1 
972 Y--Y: G0SUB4450 : IFO-1 THEN04*1 
975 IF0H-02 + 03 + 04-4THEN01 -0:02-0:03-0:04 
-0:X-CX: Y-CY:G0T045 

980 GETS$ : IFS$<> " "THENX-CX : Y-CY: G0T045 

990 X--X-.X-X+1 /XP :GOTO960 

1000 POKECP , 21 :POKEBM,BO:PRINT"{CLR}" 

1 005 PRINTSPC(8)" {RVS ON } LINE A TRA DUE P 
UNTI" : PRINT 

1010 X$="" : Y$="" : INPUT"PUNTO INIZIALE (X 
, Y ) ";X$,Y$:PRI NT 

1012 IFX$*""ANDY$*""THENX1 -X: Y1 = Y : GOT0 1 0 
25 

1015 I FX- VAL (X$) ANDY- VAL (Y$)THEN1 020 

1016 GOSUB400 

1020 X1*INT(VAL(X$)*XP):Y1*INT(VAL(Y$)*Y 
P):X-X1 : Y* Y 1 

1025 INPUT" PUNTO FINALE (X,Y): ";X2,Y2:X 
2*INT(X2*XP) :Y2*INT(Y2#YP) 

1100 IFX2-X1 «OTHENDX-O : DY-SGN ( Y2-Y1 ) * 1 : G 
0T01 1 20 

1106 SLP-(Y2->Y)/(X2-X) :SY*SGN(Y2-Y ) : S X*S 
GNCX2Z) 

1108 IFABS(SLP)>1 THENDY=SY*1 : DX=SX* 1 /ABS 
( SLP ) : GOT0 1 1 20 
1110 DX*SX*1 : DY*S Y* ABS ( SLP ) 

1120 GOSUB3360 

1130 BY*FNB 1 (0) : BI-FNB2 (X ) : I FD- 1 THENPOKE 
BY,PEEK(BY)0R(2 + BI) :G0T01 1 70 
1140 G0SUB400 
1170 IFINT(X)OX2THEN1 1 74 

1172 IFINTCY )*Y2THEN45 

1 1 73 Y-Y+DY: G0T01 1 80 

1174 IFINT ( Y )<>Y2THEN1 1 77 




1175 IFINT(X)*X2THEN45 

1176 X«X+DX: G0T01 1 80 
1 1 77 X-X+DX: Y-Y+DY 

1180 GETS$ : IFS$=" {FI } "THEN50 
1 1 82 IFS$="{F3} n THENDX*-DX:DY=-DY:X2*X1 ; 

Y2-Y1 : D-1 -D 
1 1 90 G0T01 1 30 

1 200 POKECP , 21 : POKE BM , BO : P RI NT " { CL R } " 
1210 INPUT" CURSORE IN (X,Y): ";X2,Y2:X2« 
X2*XP : Y2»Y2*YP : SYS 49485 
1220 G0SUB400 
1230 X=X2: Y-Y2:G0T045 

1 300 POKEC P , 2 1 :POKEBM,BO:PRINT"{CLR}" 
1302 PRINTSPC(9)" {RVS ONjCERCHIO 0 (ARCO 
)" : PRINT 

1304 PRINT" E QUAZ. CERCHIO :X+2+Y+2*R+ 

2. SPECIFICA IL RAGGIO ( R ) : " 

1305 INPUT R : PRINT 

1307 P-1 : INPUT"COORDINATE DEL CENTRO: (X 
, Y ) ";CX,CY:CX«CX*XP:CY=CY*YP:PRINT 

1309 PRINT" ANGOLO POLARE INIZIALE E FINA 
LE IN GRADI ( INIZIALE , FINALE)" 

1310 A 1 $ = " " : A 2 $ = " " : INPUTA1 $ , A2$ : IFA1 $ = ""' 
ANDA2$«" "THENA1 *0 : A 2- 2* tt : G0T01 360 

1315 A 1 * V AL ( A 1 $ ) : A2*VAL(A2$) : IFA1 >3 60 OR A 
2 > 3 60THE N 1 310 

1316 IFA2<A1 THENA2=A2+360 

1318 Al - Al *ir/1 80 : A2«A2 *tt/1 80:G0T01 3 60 
1 320 POKECP, 21 : POKEBM.BO: PRINT" {CLR}" 

1 325 Al «0: A2«2 »tt: PRINTSPC( 1 4)"{RVS ON } EL 
LISSE" : PRINT 

1330 PRINT"EQUAZ. ELLISSE: X+2/A+2+Y 

♦ 2/Bt2-1;{7 SPC } SPECI FICA A , B (A 
, B ) : " 

1335 INPUTA , B : PRINT 

1336 IFA<BTHENPRINT"IL MINORE NON PUO’ES 
SERE PIU' GRANDE DEL MAGGIORE !": GOTO 
1335 

1338 IFA*OTHENPRINT" L’ASSE MAGGIORE NON 
PUÒ ’ ESSERE 0 !": PRINT : G0T01 335 
1 339 P»B/ A : R = A 

1340 PRINT" ANGOLO TRA ASSE MAGGIORE ED A 
SSE ORIZZ :": INPUT ANG:ANG = ANG*it/1 80 

1341 PRINT : INPUT"COORDINATE DEL CENTRO: 
(X , Y )" ;CX ,CY : CX-CX*XP :CY*CY*YP : PRIN 
T 

1345 PRINT "VUOI PLOTTARE I FUOCHI? (S/N) 

11 

1 350 GETD$ :IFD$O"S"ANDD$O"N"THEN1350 
1 360 PRINT : PRINT"DENSITA ’ PUNTI: (TRA 0. 

1 E 1) -{9 SPC } DEFAULT 0.667 ." 

1 370 V$ = "" : INPUT V$ 

1 380 IFV$ = ""THENV=1 .5: GOT0 1 400 
1 390 V*VAL(V$) : IFV< . 10RV>1THENPRINT"FU0R 
I INTERVALLO" : G0T01 370 


che qui è possibile fermare 
il tracciamento con la pres- 
sione di un tasto qualunque. 
Q: permette di definire la 
posizione del cursore, il tipo 
di schermo e le sue dimen- 
sioni. 

T: modifica il tipo di scher- 
mo. Questo comando viene 
eseguito automaticamente 
aH’inizio del programma. I 
disegni tracciati preceden- 
temente non vengono di- 
sturbati dal cambiamento 
del tipo di schermo. 

M: muove il cursore a un 
punto specificato. Il tasto 
CLR/HOME porta il cursore 
all’origine delle coordinate, 
mentre SHIFT+CLR/HOME 
pulisce anche la pagina gra- 
fica. 
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S: salva la pagina grafica 
sul nastro. 

L: carica una pagina grafica 
precedentemente salvata su 
nastro. 

/: esce dal programma. Per 
rientrare nel programma, 
senza perdere i disegni trac- 
ciati, digitate GOTO 15. 

Il programma è diviso in 
due parti. La prima inseri- 
sce in memoria il linguaggio 
macchina, mentre la secon- 
da rappresenta il program- 
ma principale. Occorre ov- 
viamente caricare la prima 
parte, dare il RUN, e alla ri- 
comparsa del cursore cari- 
care la seconda parte e darle 
a sua volta il RUN. 

Tratto dall'archivio 
della Jackson 
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1395 V-1/V 
1400 G0SUB3360 
1405 GOSUB400 
1430 DR-V/R 

1440 F0RAG-A1 T0A2STEPDR 

1445 XI «X: X*R*COS(AG) : D I =SGN (X-X1 ):G0T01 
450 

1450 Y-SQR(Rt2-X+2)* (P)*DI 
1 480 G0SUB4 000 
1492 NEXT 

1500 IFF$*"C"THEN1 600 
1520 X«SQR(A+2-B+2) : Y«0 

1530 IFD-OORD$*"S"THENGOSUB4450:X«-X:GOS 
UB4450 

1540 G0T01600 

1600 X-CX: Y-CY: G0T045 

3000 POKEC P , 2 1 :POKEBM,BO:PRINT"{CLR}" 
3005 SYS49558 
3008 SYS49485 
3080 G0T050 

3100 POKEC P , 2 1 :POKEBM,BO: PRINT" {CLR}" 

3105 SYS49600 

3106 SYS49485 
3.110 G0T050 

3200 POKEC P ,21 :POKEBM,BO:PRINT" {CLR}" 
3210 PRINTSPC ( 3 ) " { RVS ON}USI LO SCHERMO" 
SCR ; : PRINT" { RVS OFF } ( " XM" , " YM" ) " : PR 
I NT 

3220 PRINT"POSIZ. CURSORE : X- "X/XP : PRINTS 
PC ( 1 7 )"Y«" Y/YP 

3230 PRINT :PRINT"UN TASTO PER RIENTRARE 
IN BITMAP" 

3240, GETD$ : I F D $ = " " THEN 32 4 0 
3250 SYS49485 : GOTO50 

3360 PRINT : PRINT"DRAW 0 ERASE (D/E)"; 
3370 GET DIR$ : I F D I R$ » " D " THENMODE $« " DR A W " 
: D- 1 :SYS49485 :G0T03390 
3380 IFDIR$*"E"THENMODE$* "ERASE" : D-0 :SYS 
49485 :G0T03390 
3385 GOTO3370 
3390 RETURN 

4000 IFF$*"C"THENOX=X: X~X#XP+CX: Y*Y*YP+C 
Y : G0T04 500 

4450 XA*(X*COS(ANG)+Y*SIN(ANG) ) # XP 
4460 YA*(-X*SIN(ANG)+Y*COS(ANG) ) * Y P 
4470 OX«X: OY=Y: X-XA+CX: Y-YA+CY 
4500 G0SUB300 : IFO-1 THENGOTO4570 
4505 BY*FNB1 (0):BI*FNB2(X) 

4510 IFD* 1 THENPOKEBY ,PEEK(BY)0R(2+BI): 

GOTO4570 
4550 GOSUB400 
4570 X*OX:Y*OY : RETURN 

5000 POKEC P , 2 1 : POKEBM , BO : PRINT" { CLR } " 
5010 PRINT "BATTI 'GOTO 15’ PER RIENTRARE 
NEL { 7 SPCJPROGRAMMA" :END 


LABIRINTO 3D 



10 REM LABIRINTO 3D PARTE 1 (SETUP) 

20 P0KE1 6384 ,0:P0KE1 6385 ,0 
30 POKE56578,PEEK(56578)OR3 
40 P0KE5 65 7 6 , (PEEK(565 76)AND2 52)OR1 
50 POKE53272 , 4 : POKE648 , 1 28 
60 P0KE53280 , 1 2 : POKE53281 , 1 2 
70 POKE641 ,0 : P0KE642 , 64 

80 POKE 4 3 * 1 : P0KE4 4 , 64 : POKE 55 ,0 : POKE56 , 1 2 
8 : POKE646 , 1 : PRINT" {CLR} " : CLR : RESTORE 
90 PRINT" {CLR } PREMI {RVS ON}PLAY{RVS OFF 
} PER CARICARE LABIRINTO 3D #2" 

1 00 POKE 6 3 1 ,131: P0KE1 98 , 1 

3 PRINTCHR$( 1 42) :GX-491 52:G0T038 

4 REM CREAZIONE FIGURA 3“D 

5 N = 2:A»H:B*V:FF = 2t(F-1 ) :SYS IN 

6 Z-M*(A,B)*FF:IF((Z/16) AND 1)«1 THEN R 
L--1 : GOSUB 25 : GOTO 8 

7 W=M$(A+S,B-R)*FF :IF ((W/128) AND 1) = 1 
THEN RL*- 1 : GOSUB 21 

8 IF ( ( Z / 6 4 ) AND 1 )«1 THEN RL«1:G0SUB 2 

5 : GOTO 10 

9 W=M$(A-S,B+R)*FF :IF ((W/128) AND 1 ) - 1 
THEN RL-1 : GOSUB 21 

10 IF ((Z/128) AND 1 )-1 THEN 14 

1 1 N = N + 1 : IF N>8 THEN 1 5 

12 A=A+R : B=B+S : IF B<2 THEN 15 


Questa volta siete capitati 
male cari lettori! Nella vo- 
stra missione spionistica in 
Latveria infatti siete capita- 
ti in un labirinto molto in- 
tricato e solo le vostre capa- 
cità di memoria e di collega- 
mento vi permetteranno di 
riacquistare la libertà. Nello 
schermo voi vedrete in tre 
dimensioni, appunto la se- 
zione del labirinto verso cui 
siete voltati. Premendo i ta- 
sti U J” e “L” vi girerete a de- 
stra e a sinistra, mentre per 
avanzare potrete usare la 
barra spaziatrice. Per aiu- 
tarvi ad uscire usate la map- 
pa che potrete richiamare 
con il tasto “M”. 

Tratto dal libro 
“ Paper Book” 
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13 G0T06 

14 G0SUB17 

15 RETURN 

16 REM DISEGNO CENTRO POSTERIORE 

17 POKEHX , VX + DX(N) : POKEHY , YU (N) : SYS PL:P 
OKEHY , YD ( N ) : S YS LI 

18 POKEHX, VX-DX(N) :SYS LI : POKEHY , YU ( N ): S 
YS LI :POKEHX ,VX + DX(N ) :SYS LI 

19 RETURN 

20 REM DISEGNO LATO POSTERIORE 

21 POKEHX, VX + RL*DX(N-1 ) : POKEHY , YU(N) :SYS 

PL:POKEHX,VX+RL*DX(N) :SYS LI 

22 POKEHY ,YD(N) :SYS LI :POKEHX,VX + RL*DX(N 
-1 ) : S YS LI 

23 RETURN 

24 REM DISEGNO LATO DESTRO 0 SINISTRO 

25 POKEHX, VX+RL*DX(N-1 ):P0KEHY,YU(N~1 ):S 
YS PL:POKEHX,VX+RL*DX(N) 

2 6 POKEHY ,YU(N) :SYS LI : POKEHY , YD ( N ): SYS 
LI : POKEHX, VX+RL*DX(N- 1 ) 

27 POKEHY, YD(N-1 ):SYS L I : POKEHY , YU ( N- 1 ) : 
IF N > 2 THEN SYS LI 

28 RETURN 

29 REM ACCETTAZIONE CARATTERE DA TASTIER 
A 

30 GET A $ : I F A$ = "" THEN 30 

31 RETURN 

37 -REM INIZIALIZZAZIONE 

38 HX*828 :HY=82 9 :LINE-1 2288: PLOT -12665:1 
NIT-1 2685 :SCR=1 2725 

39 FL-1 2726 :FH=1 2730 :TL-1 2734 :TH-1 2738 

40 PRINT" {CLR} {5 CUR . GIU } '*TAB ( 9 ) ” { RVS ON 
} LABIRINTO 3D {RVS OFF}" 

41 P R I N T " { 2 CUR. GIU} { CU R . DES } ESC I DAL LA 
BIRINTO, GUARDANDO" : PRINT" {2 SPCJCOME 

SE TU DOVESSI EVADERE" 

42 INPUT" {3 CUR .GIU} DIMENSIONE LABIRINTO 

( H , L ) { 2 SPC } 3 t 3 { 5 CUR. SIN}" ;H, V 

43 IF H<3 OR H> 1 5 OR V<3 OR V>15 THEN40 

44 PRINT" {CLR} {CUR .GIU} ATTENDERE , PREGO. 

45 IF PEEK ( LI ) =32 AND PEEK ( LI+1 ) -33 AND 
PEEK ( LI+2 ) =48 THEN 48 

46 CK-0 : FOR L-12288 TO 1276l:READ A:POKE 

L , A : CK-CK + A : NE XT : FOR K-GXTOGX+ 2 3 : READ 
GX 

4 7 POKEK ,GX : NEXT :IFCK<>501 4 4 THE NP R I NT " E R 
RORE NELLA DIGITAZ. DELLE FRASI DATA! 
" :STOP 

48 N-H* V- 1 :H = H+1 :V*V+1 :D-1 

49 DIM M$ ( 1 7 t 1 7 ) ,WALK(100) ,CUT(5) , DX ( 8 ) , 
YU ( 8 ) , YD ( 8 ) 

50 FOR J-1 TO V+1 : M% ( 1 ,J)=4:M*(H+1 ,J)-1 : 
NEXT 

51 MX-79:MY=49:VX-39:VY-24:X-VX 

52 FOR J-1 TO 8:DX(J)=X: YU ( J ) - INT ( V Y-X* V 


Y/VX):YD(J)-INT(VY+X*(MY-VY)/VX) 

53 X-INT(X*7/1 0) :NEXT 

5*4 FOR 1-2 TO H:M%(I,V+1 )-8:Mj(I,1)-2:FO 
R J-2 TO V:M$(I,J)-15:NEXTJ,I 

55 R«INT(H/2)+1:S»INT(VJ2)+1:M*(R,S)«15 

56 PRINT" {CLRHCUR .GIUjSTO GENERANDO IL 
LABIRINTO. ; :G0SUB2000 

57 REM GENERAZIONE CASUALE DEL LABIRINTO 

(ALGORITMI DI ROGERS E STRASSBERGER ) 

58 FOR IWALK-1 TO N 

59 I-Z 

60 IF M% (R-1 ,S)>1 4 THEN I - I + 1 : CUT ( I ) - 1 

61 IF M5KR.S-1 )>1 4 THEN I - I + 1 : CUT ( I ) - 2 

62 IF M*(R+1 ,S)>1 4 THEN I - I + 1 : CUT ( I ) - 3 

63 IF M*(R,S+1)>14 THEN I» I + 1 : CUT ( I ) - 4 

64 IF 1-0 THEN 75 

65 IF IOI THEN I - 1 NT ( RN D ( 1 ) * I ) + 1 

66 ON CUT ( I ) GOTO 67,69,71,73 

67 M$(R,S)-M$(R,S)“'(M$(R,S) AND 1):R-R-1 

68 M$(R,S)-M*(R,S)-( (M*(R,S)/4)AND 1)*4: 
GOTO 86 

69 M$(R,S)-M*(R,S)-((M$(R,S)/8)AND 1 ) * 8 : 
S-S-1 

70 M$(R,S)-M*(R,S)-((M*(R,S)/2)AND 1 ) * 2 : 
GOTO 86 

71 M*(R ,S)*M$(R ,S)- ( (M*(R ,S)/4 )AND 1 ) * 4 : 
R-R-H 

72 MX(R,S)-M$(R,S)-(M%(R,S)AND 1):G0T0 8 
6 

73 M*(R,S)-M*(R,S)-((M%(R,S)/2)AND 1 ) * 2 : 
S-S + 1 

744 M$(R,S)-Mj6(R f S)-((M56(R,S)/8)AND 1)*8: 
GOTO 86 

75 IF D--1 THEN 79 

76 IF ROH THEN 83 

77 IF SOV THEN 82 

78 R-2 : S-2 : GOTO 844 

79 IF R C> 2 THEN 83 

80 IF SOV THEN 82 

81 R-H : S-2 : GOTO 84 

82 S-S+1 : D = -D : GOTO 84 

83 R-R+D 

84 IF M*(R,S)-15 THEN 75 

85 GOTO 59 

86 NEXT IWALK 

87 MH-H:MV-V:I = INT(RND(1 )*(MH~1 ) )+2 

88 M5t(I f 1)-0:M$(I,2)-M$(I f 2)“'((M$(I f 2)/8 
) AND 1 )*8 

89 H-INT (RND( 1 ) * (MH-1 ) ) + 2 :H1 -H:V1 «V 

90 PRINT" {CLR} {CUR.GIUjLABIRINTO COMPLET 
ATO." :GOSUB2000:GOTO 105 

91 REM STAMPA DEL LABIRINTO VISTO DALL ' A 
LTO 

92 HZ-INT(79/MH) : VZ-INT ( 49/MV ) 

93 SYS IN : POKE 214,24:PRINT TAB(25);"{CU 
R.SU}{9 SPC } {HOME } " ; 


94 POKE HX , 1 ♦ HZ : POKE HY,1+VZ:SYS PL:POKE 

HY , M V * V Z + 1 :SYS LI 

95 FOR J-1 TO MV : FOR 1-2 TO MH:N-M*(I,J) 
: X- I * HZ + 1 : Y=J*VZ+1 

96 I F ( (N/2)AND 1)«1 THEN POKE HX,X:POKE 
HY , Y : S YS PL:POKE HX,X-HZ:SYS LI 

97 I F ( ( N / 4 ) AN D 1 ) - 1 THEN POKE HX,X:POKE 
H Y , Y : S YS PL : POKE HY,Y-VZ:SYS LI 

98 NE XT : NE XT 

99 RETURN 

100 REM POSIZIONE DEL GIOCATORE 

101 X»H*HZ-1 :Y=V*VZ-1 :POKE HX,X+1:P0KE H 
Y , Y+ 1 : S YS PL 

102 POKE HX ,X-HZ+2 : POKE HY , Y-VZ + 2 : SYS LI 
: POKE HY , Y + 2 : SYS PL 

103 POKE HX , X+ 2 : POKE HY , Y- VZ + 2 : S YS LI 

104 RETURN 

105 FOR X-1 TO MH : FOR Y-1 TO MV:M%(X,Y)- 
M$(X,Y)+M/6(X,Y)*1 6:NEXTY,X 

106 REM IL GIOCO 

107 F«INT(RND(1 )*4) + 1 :0N F GOTO 108,109, 
110,111 

1 08 R-0 : S- ~ 1 : GOTO 1 1 2 

109 R-1 : S-0 : GOTO 1 1 2 

1 1 0 R-0 :S-1 : GOTO 1 1 2 

1 1 1 R--1 : S-0 

112 PRINT'MCLR} {CUR.GIU} { CUR . DES } PREMI { 
RVS ON } J { R VS OFF} PER ANDARE A SINIS 
TRA" 

113 PRINT"{CUR.GIU} {CUR .DES} PREMI {RVS 0 
N } L { RVS OFF} PER ANDARE A DESTRA" 

114 PRINT" {CUR.GIU} { CUR . DES } PREMI {RVS 0 
N}SPAZIO{RVS OFF} PER ANDARE AVANTI" 

115 PRINT "{CUR. GIU} {CUR.DES}PREMI {RVS 0 
N } M { RVS OFF} PER VEDERE DALL’ALTO IL 

LABIRINTO" 

116 PRINT" { 3 CUR . GIU } PREMI UN TASTO QUAL 
UNQUE PER CONTINUARE" 

117 GOSUB 30:PRINT"{CLR}"; : S YS 4 9 1 52 : GOSU 
B 5 

118 REM SMISTAMENTO COMANDO 

119 GOSUB 30 

120 ON - ( A$-"J" )-2* ( A$-"L" )~3* ( A$ = " ")-4 
» (A$-"M" )GOTO 1 22, 1 24,1 31 . 1 36 

121 GOSU B2 000 : GOTO 112 

1 22 F — F — • 1 : IF F<1 THEN F-4 

123 GOTO 125 

1 24 F-F+1 : IF F>4 THEN F-1 

125 ON F GOTO 126,127,128,129 

1 26 R-0 :S--1 : GOTO 1 30 

1 27 R-1 : S-0 : GOTO 1 30 

1 28 R» 0 : S- 1 : GOTO 1 30 

1 29 R-"1 : S-0 

130 GOTO 135 

131 Z-M*(H,V):T-Z*2*(F-1):T-(T/128)AND 

1 : IF T » 1 THEN GOSUB 2000:G0TQ 119 


132 NM*NM + 1 : POKE 214,24:PRINT TAB(25);"{ 
CU R .SU } MOSSA” ;NM; ” {HOME}” ; 

133 IF NM< 1 00 THEN WALK ( NM ) *F 

134 H»H+R:V*V+S:IF V<2 THEN 147 

135 GOSUB 5 : GOTO 119 

136 IF NOT MS THEN 138 

137 POKE FL , 2 1 8 : POKE FH,49:POKE TL,0:POK 
E TH , 1 28 : S YS SC:GOTO 139 

138 GOSUB 92 : POKE FL,0:P0KE FH,128:P0KE 
TL , 2 1 8 : POKE TH,49:SYS SC:MS«-1 

139 GOSUB 1 01 : PRINT" {HOMEJSTAI ANDANDO V 
ERSO ” ; : ON F GOTO 140,141,142,143 

140 PRINT "NORD”; :G0T0144 

141 PRINT "EST" ; :G0T01 44 

142 PRINT "SUD"; : G0T01 44 

143 PRINT "OVEST" ; 

144 PRINT". {2 SPC } PREMI UN TASTO QUALSIA 
SI PER CONTINUARE" : GOSUB 30 

145 PRINT" {CLR}" 

1 46 GOSUB 5 : GOTO 1 1 9 

147 GOSUB2000 : V = V1 :H = H1 : IFMS THEN POKE F 
L , 2 1 8 : POKE FH,49:POKE TL , 0 : POKE TH f 1 
28 

148 IF MS THEN SYS SC:GOTO 150 

149 GOSUB 92 

150 GOSUB 101 

1 51 PRINT" {HOME} { CUR . Gl U } CONGRATULA Z ION I 
: SE I USCITO CON " ; NM ;" PASSI ! " 

152 REM V I ASU A"LIZZ AZIONE CAMMINO PERCORS 
0 

153 POKE HX ,H*HZ-HZ/2+ 1 : POKE HY,V*VZ~VZ/ 
2 + 1 : S YS PL 

154 FOR N-1 TO NM : I F N>100 THEN 158 

155 F*WALK(N) : V* V+ ( F* 1 ) - ( F* 3 ) :H*H+(F-4)- 
(F-2) 

156 POKE HX ,H*HZ-HZ/2+1 : POKE HY,V*VZ-VZ/ 
2 + 1 : SYS LI 

157 NE XT 

158 PRINT : END 

160 DATA32 , 33 , 48, 1 73 , 58 , 3. 1 33 , 2 
170 DATAI 73 ,59, 3, 1 33, 1 95 , 32,0 , 49 
180 DATAI 73,62,3,205,63,3, 16,8 
190 DA TA240, 6, 32, 173, 48, 76, 3, 48 
200 DATA 96, 169, 128, 24, 109, 60, 3, 56 
210 DATA237,58,3,141 ,63,3,169,128 
220 DATA24 , 1 09 , 61 , 3 , 56 , 237 , 59 , 3 
2 30 DATA 141 ,64,3,162,128,142,66,3 
2 40 DATAI 42,69,3,2 32,1 42,67,3,1 42 
250 DATA68,3,173,63,3,201 ,128,176 
2 60 DATAI 1 , 1 69 , 1 27 , 1 41 , 68 , 3 , 1 69 ,0 
270 DATA56 , 237 , 63 , 3,41,127,141,63 
2 80 DATA 3, 173, 64, 3, 201, 128, 176, 11 
290 DATA169,127,141,67,3,169,0,56 
300 DATA237, 64, 3 , 41 ,127,141 ,64,3 
310 DA TA173, 63, 3, 205, 64, 3, 176, 32 
320 DATAI 74 , 63 , 3 , 1 72 , 64 , 3 , 1 42 , 64 
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Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola in 
Febbraio 


330 DATA3 , 1 40 , 63 , 3, 1 73 , 68, 3, 1 41 
340 DATA66,3,173,67,3,141 ,69,3 
350 DATA 169, 128, 141, 67, 3, 141, 68, 3 
360 DATA173, 63, 3r74, 141 ,65,3,169 
370 DATA0 , 1 41 , 62 , 3 , 96, 1 73 , 68 , 3 
380 DATA 5 6, 2 33, 128,24,109,58,3,141 
390 DATA58.3, 173,69,3,56,233, 128 
400 DATA24, 109, 59, 3, 141 ,59,3,173 
410 DA TA65, 3, 24, 109, 64, 3,141 ,65 
420 - DATA 3, 238, 62, 3, 1 73, 65, 3, 205 
430' DAT A6 3, 3,48, 35,240,33,56,237 
440 DATA63, 3, 141 ,65,3,173,66,3 
4 50 . DAT A5 6, 233, 128, 24, 109, 58, 3, 141 
460 DATA58,3, 173,67 ,3,56,233, 128 
470 DATA24, 109, 59, 3, 141 ,59,3,96 
4 80 DATAI 69,0,133,168,169,32,133,196 

4 90 'DATAI 65,2,201 ,80,176,56,165,1 95 
500 DATA 201 ,50,176,50,234,234,234,234 
510 DA TA70, 2, 38, 168, 106, 38, 168, 133 
520 DATA 195, 10, 10, 101, 195, 10, 10, 38 

5 30 DATAI 96 , 10,38,196,234,234,234,133 
54 0 DATAI 95 , 1 66, 1 68, 18.9,99 ,49, 1 33, 1 68 
550 DATA 164, 2, 177, 195, 162, 15, 221, 103 

5 60 DAT A 4 9, 2 40, 4, 202, 1 6,248,96,1 73 
570 DATA98,49,240,6,138,5,168,170 
580 DATA 208, 8, 138,73,255,5, 168,73 
5 90 DAT A2 5 5, 1 70, 1 8 9, 1 0 3, 4 9, 1 64, 2, 1 45 
600 DATAI 95 , 96 , 1 , 1 , 2 , 4 , 8 , 32 
610 DATAI 26, 1 2 3.97, 1 24,22 6,255,236,1 08 
620 DATAI 27,98,252,225,251 , 254,1 60,234 
630 DATA0, 1 73, 60, 3, 1 41 ,58,3,1 33 
640 DATA2 , 1 73 , 61 , 3 , 1 41 , 59 , 3 , 1 33 
650 DATA195, 32, 0,49, 96, 162, 128,1 60 
660 DATA0, 13 4, 254, 132, 253, 177, 25 3, 41 
670 DATAI 27,201 ,64,48,2,169,32,145 
680 DATA 253, 200, 208, 241, 232, 224, 132, 208 
690 DAT A2 32, 1 69,0,170,157,58,3,232 
700 DATA 224, 12, 208, 248, 96, 169, 218,. 133 
710 DATA251 ,169,49,133,252,169,0,133 
720 DATA 253 ,169,128,133,254,162,4,160 
730 DATA0, 177,251 ,145,253,136,208,249 
740 DATA 2 30 ,252,230,254,202,48,2,208 
750 DATA240 , 96 > 

7 60 DATAI 62,0, 1 69, 1 ,1 57,0,216,157 
770 DAT A0, 21 7, 157,0,21 8,157,0,21 9 
780 DATA232 , 208 , 241 ,96,234,234,234,0 
2000 S0-54272 :F0RE-S0T0S0+28 :P0KE E,0:NE 
XT 

2010 P0KE54296 , 1 5 : POKE54277 , 51 :P0KE54278 
,21 1 

20 20 POKE5 4 27 6 , 33 : POKE5 4 27 3 , 63: PO KE 54272 
,75 

2030 F0RT-1 T01 00 :NEXT : P0KE5 4 276 , 32 : FORT» 
1 T01 00 : NEXT 

2040 F0RE-S0T0S0+28 : POKE E,0:NEXT 
2050 RETURN 


40 



